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SERIEUS 


IN SOFTWARE 


T A S W O R D M S X - DE Lekstverwerker! 100 % 
Nederlandse vertaling en handleiding. 64 tekens per 
regel, dus u ziet op het scherm wat er op papier 
kooit. Diskversie ook op de cassette! cass f 95,00 


MSX-64 PLUS -Nu met uitgebreide hand¬ 
leiding en grote-letter-routine ingebouwd. Werk in 
uw eigen programmal met 64 i.p.v. 40 letters per 
regel. Voor disk en cassette. cass f 34,50 


ZF. S EDUCATIEVE PROGRAMMA'S 
Waarin het spel-element een belangrijke rol speelt, 
liet gaat over een doolhof, een verf kanon of een 
vliegende schotel, maar ook over 'Optellen en 
aftrekken 1 (1), ‘Cijferend Vermenigvuldigen’ (2), 
’Procenten* (3), ’Celd’ (4), 'Deelsommen 1 (5), en 
het ‘Alfabet’ (6). Prijs per stuk: cass f 34,50 


DRIE—IN—EEN — Driemaal edukatieve soft¬ 
ware op een (!) cassette: Aardrijkskunde (met grote 
kaart van Nederland), Rekenen en Tekenen, f 34,50 


FIL0TEL — Onze databank is 24 uur per dag 
bereikbaar voor iedere ‘Viditeller' (050-145174). 

B R I D C E — Nederlands bridgeprogramma, gemaakt 
door een bridgeleraar, speelt op behoorlijk nivo, 
maar is ook geschikt voor beginners. cass f 59,00 

HIS0FT C++ — Ja, de programmeertaal C ! 
Voldoet, m.u.v. floatingpoint aan UNIX. Programma’s 
in C runnen zonder de compiler en zijn ongewijzigd 
vaak bruikbaar op andere computers. disk f 185,00 


HIS0FT DEVPAC - Twee in een voor het 
werken met machinecode. GEN is de krachtige assem- 
bler. MON is de monitor en debugger. De diskversie 
werkt ook met MSX-D0S. disk f 185,00 cass f 89,00 


HIS0FT PASCAL — Pascal, ook voor MSX! 
M.b.v. deze compiler kunt u zelf programma’s in 
Pascal schrijven, en onafhankelijk van de compiler 
runnen, disk (ook MSX-D0S) f 185,00 cass f 134,00 


REDEKUNDIG ONTLEDEN - Niet mals 
edukatief programma. Met de Lheorie en meer dan 120 
oefeningen over de hele reeks: van onderwerp t/m 
bijwoordelijke bepaling. Goed! cass f 59,00 


BESTELLEN - Onze produkten zijn verkrijg¬ 
baar in de goede computerzaak, maar u kunt ze ook 
rechtstreeks bestellen: telefonisch (050-137746) of 
door storting v.h. bedrag + f 3,50 verz.k. op giro 
20792 t.n.v. Filosoft Postbus 1353 9701BJ Groningen 


HIER HAD UW ADVERTENTIE 
KUNNEN STAAN. 

BEL: 020 - 32.74.64 ! 



L. Willemsteeg 12-14, 2801 WC Gouda 


Wij hebben voor elke MSX de 
juiste printer, o.a.: 

- Smith Corona Fastext 80 f 495- 

- Seikosha SP 800 . f 985- 

- Brother M-1109 (N.L.Q.) . ƒ 795,- 

Bel voor inlichtingen of vraag 
een Print-out! 

Printerkabels uit voorraad . . f 69- 


Software: 

Superfile MSX, een pracht bestands- 
programma. Geheel zelf in te richten 
met ruime opslag en uitgebreide prin- 
ter-instellingen. 

Zeer geschikt voor adressen, boeken, 
platen of katalogus . f 39 — 

Kasboek MSX, met maandtotalen en 
overzichten naar 100 rekeningen apart 
Zeer fraai. f 39- 

Div. spelletjes, o.a.: 

Jet Set Willy . f \ 9 — 

Manie Miner . f 19- 

Battle Ship . f 19- 


Bestellen d.m.v. vooruitbetaling op 
giro 47 27 958 t.n.v. Data-Skip, Gou¬ 
da. Of d.m.v. zenden van giro/euro- 
cheque. (U heeft uw bestelling 1 dag 
later in huis.) 


Onze winkel is de gehele week (be¬ 
halve maandag) geopend. 

Telefoon: 01820 - 20581 


Data-Skip 
L Willemsteeg 10 
2801 WC Gouda 
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VOORWOORD 


Hier is dan alweer: Gids nummer 4. Ook weer keurig op tijd en -gezien de 
ervaring tot nu toe- zullen alle andere nummers ook op tijd verschijnen. 

De listings worden nu met een matrix printer gemaakt zodat ook de grafische 
tekens verwerkt kunnen worden. De omslag is gedrukt op wat zwaarder papier zodat 
de kaft nu wat steviger is en langer in de nietjes blijft hangen. 

Verder gaat het goed met de Gids; het aantal abonnees groeit gestaag en de 
oplage hebben we alweer -met een paar duizend stuks- moeten verhogen. Er zijn 
nog teveel winkels snel uitverkocht en op een heleboel plaatsen is het blad nog 
niet verkrijgbaar. Gezien het geringe aantal retouren bij de verspreider zullen, 
in de toekomst, nog wel een paar verhogingen van de oplage volgen. We doen het 
rustig aan; elke uitgave wat meer, zodat we niet met 40 tot 50% retouren komen 
te zitten. 

Er wordt hard gewerkt (veel praten en rekenen) aan een manier om het blad te 
zetten. We willen dit ook in eigen hand houden en het ziet er naar uit dat, nog 
dit jaar, de teksten in dit blad keurig gezet zullen worden. We schrijven over 
computers dus een en ander zal dan ook geheel via de computer gaan geschieden. 


WAAR BLIJFT DE NIEUWE WERELDSTANDAARD? 

Er komen regelmatig -en steeds vaker- klachten binnen dat sommige software op 
sommige computers niet wil draaien. Wij hebben daar tot nu toe nooit problemen 
mee gehad (wij gebruikten voorheen alleen de Goldstar) en hebben er, ter 
controle, dan ook maar eens een ander merk machine bijgekocht. 

Jammer maar helaas; de klachten zijn gegrond. Op onze JVC kunnen we inderdaad 
niet alle (tape) software draaien (zie de software tests in dit nummer). 

Ook de computers van Philips, Spectra-video, Sony en Daewoo hebben zo af en toe 
problemen met de spel programma's. Zo draaien de spellen 'ALIEN 8' en 1 
KNIGHTLORE' ook niet op de Philips en de Spectravideo. Het spel 'The Heist' 
draait b.v. niet op de Sanyo; en zo zijn er nog veel meer. Er zijn al partijen 
software uit de handel genomen; maar voor de consument blijft dit erg vervelend. 

HELP !! 

Heel erg bont maken de computers van Toshiba en Mitsubishi het. Deze computers 
hebben zelfs problemen met de listings uit ons blad. Zo worden we overstroomd 
met telefoontjes dat, in het programma GOLDDIGGER, al deze machines een SYNTAX 
ERROR geven op regel 30300. Wie helpt deze groep MSX-ers??? Wie belt ons even de 
oplossing door van dit probleem. Wij weten hier echt geen raad mee. 

In het Engelse blad MSX Computing staat te lezen, dat voor de Toshiba sommige 
software zelfs herschreven zal worden! 

Al met al kunnen we -jammer genoeg- voorlopig nog niet van een wereldstandaard 
spreken. Wie nog een MSX computer moet aanschaffen kan -voorlopig- het beste de 
Goldstar nemen. Deze machine slikt alles wat er uitgebracht wordt. Het is zeker 
niet de mooiste en meest uitgebreide machine, maar dit apparaat werkt absoluut 
probleemloos! (Wel de originèle Goldstar, want ook van dit merk schijnen de 
Engelse importmachines problemen te geven!) 

MSX-2. 

In ons eerste nummer kondigden we de MSX Plus aan. De fabrikanten noemen dit 
inmiddels allemaal de MSX 2 maar eigenlijk is het toch een MSX Plus. Gewoon een 
MSX 1 met een ingebouwde diskdrive en een nieuwe videochip. 

De ingebouwde diskdrive was er al bij de X'Press van Spectravideo; dit is dus 
helemaal niet zo bijzonder. Voor wie zuiver in de video kwaliteiten is 
geinteresseerd is dit een mooie machine. Uiteraard hebben deze apparaten nog wel 
wat leuke extraatjes maar het echte MSX 2 gebeuren moet nog komen. 
Waarschijnlijk komt Philips binnenkort alweer met een nieuwe machine en de 
echte toppers komen van Spectravideo. Afwachten dus. Ik mag hier verder niets 
over vertellen. Jammer he? 

Alfred Debels. 
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THE WALL 

HET SPEL 

Dit spelletje is een variant van het 
zeer bekende BREAKOUT. Voor diegenen die 

jjpvu no f 1 *f ts ° ver dit spel gehoord 
hebben komt hier de uitleg! 

^ van f het spelletje is de muur 
(THE WALL) af te breken. Dit kan door 
het rondvliegende balletje steeds met 
net plankje op te vangen en terug te 

hÜnf^' ° at J h6eft t0t 8 ev oig dat het 
balletje op de muur botst en er een 

steentje afbreekt. Met een beetje geluk 
is het mogelijk om tegelijkertijd twee 
of meer steentjes af te breken. 


volgende? V “ de “ v " sle ls 

ü® “S het balletje niet kan raken dan 
daalt de muur een stukje en krijgt men 
er een laag steentjes bij. Nadat dat 15 

efnL % !• U ^ d ’ 1S h6t s P ell etje ten 
einde. Indien de speler de muur volledig 

weet af te breken is het spel ook 
afgelopen en krijgt de speler een 
welgemeend PROFICIAT. 

Het spel kan naar keuze met joystick of 
keyboard worden gespeeld. Er is een 

eerste uit . twe ® moai11 J khe idsgraden. De 
fff®. ls (zoals gewoonlijk) de 
makkelijkste en de tweede de 
moetiijkste. Veel extra's, zoals b.v. 

Zijn niet ingebouwd om de 
snelheid van het spel te garanderen. 



HET PROGRAMMA 

Dit programma is een zogenaamde hybride: 

machtmitta at C P ro g ramma met stukken 
2inde NE I^n‘ i? e schermopbouw en het 
einde zijn allemaal in BASIC omdat deze 
stukken geen snelheid vereisen. 

van w en T va r. de J°ystlck, het besturen 
van het plankje en het laten dalen van 
de muur zijn in machinetaal geschreven. 
Met regel 250 wordt het machinetaal 

DATA—rncroi 10 geheu g en geplaatst. De 

DATA regels van het machinetaal gedeelte 

worden steeds gevolgd door een assembler 
vertaling, zodat voor diegenen die 
machinetaal beheersen, het erg eenvoudig 
is het programma te volgen. 

In het machinetaal gedeelte wordt 
regeimatig gebruik gemaakt van enkele 
BiOS subroutines. Dit ziin o a rovrm 
WRTVRM, LDIRMV, en LDIRVM. 

De oplettende lezer zal merken dat er 5 
sprites zijn gedefinieerd. Twee sprites 
zijn voor de bal en het plankje, de 
andere dienen om het woord 'SCORE' te 
maken. Deze tekst -met sprites- is 
snelier te verwerken dan een tekst met 
letters. In het programma is ook een 
controle ingebouwd op de DATA- regels. 
Deze controle geeft geen waterdichte 
garantie, maar zal in de meeste gevallen 

wel lokaliseren. 

Ondergetekende wenst U veel speelgenot . 

Martin Buysse. 


2% : **’*THl*WflLL***** m ****J 

30 ’ * * 

li Martin Buysse * 

ah '+ f| Sebastiaanstr 5 # 

na jJ 9968 Bassevelde * 

70 ’* BELGIE * 

80 • W**»*****^***#*##*#** 

?S« V 5¥St!i B04 » 0! VPOKE&H1B05, 0 

100 CLEAR200, &HF2A2 

110 DEF USR1=?<HF2DA: REM PLANKJE&BALLE 

J-r! USR0=? <HF350:REM PLANKJE 
1^0 REM 

140 REM BEGIN SCHERM 
150 REM 

4 ’ 1 * 1! SCREEN3 

170 OPEN grp:"AS#1sDEFINT A -7 
190 COLOR B 11 6 5 50 " * PR1 NT# 1 . " THE 11 

200 DRAW"BM56,1 00 "•RRi nt# l,» WALL" 

210 FORI=l TO 3000!NEXT LL 

220 REM 

240 REM INLEZEN M.TAAL DATA’S 

2.J0 RESTORE 1060; F0RI = 8<HF2A2TO?;HF’ _: :7p« 

ffiSSgj; f^'fj^AL < ■• & H- + A < ïr?P§I^Z (?■ 

260 REM* 

270 REM KEUZE MENU 
280 REM 

OFF: L0CATE5^5^ * ? * SCREEN0: WIDTH40:KEY 

300 IF PO<>20917 THEN LOCATE 2 s.PPtw 
T " U t HEBT EEN FOUT GEMAAKT BIJ HET 

INTIKKEN VAN DE DATA’S!'''•i•i•iii 
* sENDsREM DATA KONTROLE 
^4® NPy T,,J0YETI CK {J/N> " ; JS 
320 IF J$= n J’^RJ^s"j"THENPOKE&HF3S1 1 
330 LOCATE 5,10.INPUT"LEVEL 1 0F2 *"• 

U $ ï 

340 IF J$=" i "THEN POKE&HF302 &HB7-Pnk' 

42?5ffi7 : pSkIIhF34^0 32C ’ &HB7s P0( < E *HF3 

350 REM 5 

360 REM SCHERM TEKENEN 
370 REM 

lin £2|2 R i 15 ’ 1 * 13! SCREEN2,0 
390 RESTORE 440:FORI=0TO6' 

400 READC 
410 FORT=0TO11 

420 LIN E <T*16+4,I*8)-(T*16+18,1*8+6), 
«TneXTT,I 

440 DATA 12,4,13,6,2,11.14 
450 LïNE(0,0) — <7,191),15,BF 
4é>0 LI NE (192, 0) — (199,191) 15 BF 

470 LINE(8,0)-(8,191),I ’ ’ 


















480 LINE(4,0)-(4,191),1 
490 LINE<191,0)-<191,191),1 
500 LINE<196,0)-<196,191),1 
510 REM 

520 REM SPRITE’S INLEZEN EN PLAATSEN 
530 REM 

540 RESTORE 580!FORI=0TO4:S$="" 

550 F0RT=1T08:READ A 

560 S*=S*+CHR*(A):NE X T 

570 SPRITE*<I)=SS:NEXT 

580 DATA 255,255,0,0,0,0,0,0 

590 DATA 3,3,0,0,0,0,0,0' 

600 DATA 0,115,132,132,100,20,20,243 

610 DATA 0, 153, 37,37,37,37', 37, 153 

620 DATA 0,207,40,40,207,136,72,47 

630 PUT SPRITE0, <50,i90),15,0 

640 PUT SPRITE2, (210,15),11 

650 PUT SPRITE3,(218,15),11 

660 PUT SPRITE4,<226,15),11 

670 ON SPRITE GÖSUB 800 

680 SPRITE ON 

690 FORI=1TO50:X=USR<0)sX=USR1<0):NEX 
T 

700 REM 

710 REM HOOFDLUS 
720 REM 

730 DUMY=USR1(0) 

740 IF PO I NT (VPEEK (&H 1B05) +7, VPEEK (8<H 
1B04))< >1 THEN SC=SC+1:PAINT < VPEEK < &H 
1B05) +7, VPEEK < ?<H 1B04) ) , 1: P0KE&HF34E, 1 
!GOSUB840 

750 IF PEEK <&HF2D9) = 15THEN 920 
760 GOTO 730 
770 REM 

780 REM SPRITE BOTSING 
790 REM 

800 SPRI TE OFF! P0KE&HF34F, 0: P0KE&HF34 
E,0!VPDKE&H1B04,187: BEEP:SPRITE ON:RE 
TÜRN730 
810 REM 

820 REM SCORE OP HET SCHERM PLAATSEN 
830 REM 

840 LINE<242,45)-(210,30),1,BF 
850 X=USR(0) 

860 PRINT#1,SC 

870 IF VPEEK <?<H 1B04) <BTHEN Q=Q+1:IF Q 

= 12 THEN 920 

880 X=USR1<0):RETURN 

890 REM 

900 REM EINDE 

910 REM 

920 COLOR 15,4,7: SCREEN0 :L0CATE5,5 
930 PRINT"Uw score is";SC 
940 IF Q=12THEN LOCATE5, 7: PR I NT " Pr o-f i 
ciat u vernietigde de hele muur ! '*sGOT 
O 960 

950 L0CATE5,7:PRINT"Pech gehad! Meer 
oe-f enen. " 

^960 LOCATE5,10:PRINT"Wi1t u nogmaals 
spelen? {j/nJ": TIME=0 
970 IFTIME= >500THEN L0CATE5,12:PRINT" 
Antwoord A.U.B.":IF INT(TIMÈ/7)=TIME/ 
7 THEN BEEP 

980 I*=INKEY$:IF I*=""THEN 970 

990 IF I*="j"OR ï$=" J"THEN RUN 

1000 IF I*="n"OR I$="N"THEN CLS:END E 

LSE GOTO 970 

1010 REM 

1020 REM MACHINE TAAL DATA’S 
1030 REM 

1040 REM DE MUUR LATEN DALEN "MULADA" 
1050 REM 

1060 DATA 36,00 :REM LD < HL),00 

1070 DATA 21,00,00:REM LD HL,0000 
1080 DATA 01,00,17:REM LD BCi1700 
1090 DATA 11,00,DB:REM LD DE,D800 
1100 DATA CD,59,00:REM CALL 0059 
1110 DATA 21,00,D8:REM LD HL,D800 


11120 

DATA 

11,00, 

01 

REM 

LD DE,0100 


1130 

DATA 

01,00, 

16 

REM 

LD BC,1600 


1140 

DATA 

CD,5C, 

00 

REM 

CALL 005C 


1150 

DATA 

21,00', 

20 

REM 

LD HL,2000 


1160 

DATA 

01,00, 

17 

REM 

LD BC,1700 


1170 

DATA 

11,00, 

BF 

REM 

LD DEj BF00 


1180 

DATA 

CD,59, 

00 

REM 

CALL 0059 


1190 

DATA 

21,00, 

BF 

REM 

LD HL, BF00 


1200 

DATA 

11,00, 

21 

REM 

LD DE,2100 


1210 

DATA 

01,00, 

16 

REM 

LD BC,1600 


1220 

DATA 

CD,5C, 

00 

REM 

CALL 005C 


1230 

DATA 

21,D9, 

F2 

REM 

LD HL,F2D9 


1240 

DATA 

34 


REM 

INC (HL) 


1250 

DATA 

C9 


REM 

RETURN 


1260 

DATA 

00 


REM 

Dit is een 

tel 

Ier die verhoogt 

wordt 

als de muur 

da 


alt 


1270 REM 

1280 REM BESTURING BALLETJE "BEBAL" 
1290 REM 

1300 DATA 3A,4D,F3:REM LD A,(F34D) 
1310 DATA FE,01 :REM CP,0Ï 

1320 DATA CC,F8,F2:REM CALL Z,F2F8 SU 
BROUTINE "BANRE" 

1330 DATA FE,00 :REM CP,00 

1340 DATA CC,0D,F3:REM CALL Z,F30D SU 

BROUTINE "BANLI" 


1350 DATA 3A,4E,F3:REM 
1360 DATA FE,01 :REM 
1370 DATA CC,22,F3:REM 
BROUTINE "BANBE" 

1380 DATA FE,00 :REM 
1390 DATA CC,38,F3:REM 
BROUTINE "BANBO" 

1400 DATA CD,50,F3:REM 
1410 DATA C9 :REM 
1420 REM 

1430 REM BALLETJE NAAR 


LD A,<F34E) 
CP,01 

CALL Z,F322 SU 
CP,00 

CALL Z,F338 SU 

CALL F350 
RETURN 

RECHTS "BANRE 


1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 


REM 

DATA 21,05,1B:REM 
DATA CD,4A,00:REM 
DATA FE,B6 :REM 
DATA 28,06 :REM 
DATA 3C :REM 
DATA 3C :REM 
DATA CD,4D,00:REM 
DATA C9 :REM 
DATA 21,4D,F3:REM 
DATA 35 :REM 
DATA C9 :REM 
REM 


REM BALLETJE NAAR 


REM 

DATA 21,05,1B:REM 
DATA CD,4A,00:REM 
DATA FE,04 :REM 
DATA 28,06 :REM 
DATA 3D :REM 
DATA 3D :REM 
DATA CD,4D,00:REM 
DATA C9 :REM 
DATA 21,4D,F3:REM 
DATA 34' :REM 
DATA C9 :REM 
REM 


REM BALLETJE NAAR 


LD HL,1B05 
CALL 004A 
CP,B6 
JR Z,06 
INC A 
INC A 
CALL 004D 
RETURN 
LD HL,F34D 
DEC <HL) 

RETURN 

LINKS "BANLI" 

LD HL,1B05 
CALL 004A 
CP, 04 
JR' Z, 06 
DEC A 
DEC A 
CALL 004D 
RETURN 
LD HL,F34D 
INC (HL) 

RETURN 

BENEDEN "BANBE 


1720 REM 

1730 DATA 21,04,1B:REM 
1740 DATA CD,4A,00:REM 
1750 DATA FE,BF :REM 
1760 DATA 28,06 :REM 
1770 DATA 3C :REM 
1780 DATA 3C :REM 
1790 DATA CD,4D,00:REM 
1800 DATA C9 :REM 
1810 DATA 21,4E,F3:REM 


LD HL,1B04 
CALL 004A 
CP , BF 
JR Z,06 
INC A 
INC A 
CALL 004D 
RETURN 
LD HL,F34E 
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'NflAR D ?JS L g^ 2 ’ F2!RE " SPRING 

1830 REM 

1850 rIm BALLETJE NAAR BOVEN "BANBO" 

lR7n 21,04 ,lBs REM LD HL,1B04 

1880 DATA £ B ^A,00 sREM CALL 004A 
ïotf*') DATA FE-01 s REM pp cu 

1B90 DATA 28 06 -REM JR7 «a 

lis sss S :g êV 

1930 sss c c §- 4D ’ 00 :is S** 

1950 DATA 34 ,4E,F3 : ! r 1S INC^HU^ 

JSS ÜSÏS IT J0 1 ;jjg D f u£ 

{Ig^Sta’I *'" 5 ric ^is 9 N g^ houden “ ee 

1990 REM NUF 

2010 rIm PLflNKJE BESTURING "PLABE" 

2020 DATA 3E - 00 ■ rpm i r\ /\ f ArA 

l%l% DA™ FE;03 ,00 :^||3 CP L 03 005D 

iR0UTINE A -PLNRl?- F3SREM CAEL ^,F360 SU 
20é>0 DATA FE-07 -REM PP 017 

a?S^..K?S F3,RiS SU 

2080 DATA C9 -rpm rfti iom 

2090 REM " RETURN 

Ill0 REM PLANKJE NAAR RECHTS "PLNRE" 
2120 DATA 21,01 ,lBs REM LD Wi 1 orn 

I I 0 82% FE^ Bó' 00 ! RPM g^ 044 

is ssïs ic s ’ 05 :g i $£« 

2170 DATA 3 C -rcm ÏmR 2 

2190 DATA EB ’ 4D ’ 00! REM CALL 004D 

22W RÊJ A C9 !REM RETU ™ 

2220 rIm PLANKJ C NAAR LINKS "PLNLI" 

flsl data “l/"” 1 

BEnr SS- 

1121 g A ™ CO-4D,00:REM CAL L A 004D 
2000 DATA C9 s REM RETURN 
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MSX-SIGN 


Dit programma is, zoals de naam reeds 
doet vermoeden, een tekenprogramma 
waarmee bovendien een tekening kan 
worden uitgeprint of kan worden gebruikt 
in een ander programma. Het uitprinten 
kan alleen op een matrix printer die MSX 
compatible is. 

(Red. Op de TREND JP-130 MSX, welke ook 
MSX compatible is, werkt dit programma 
niet zondermeer! Voor deze printer 
moeten wel degelijk aanpassingen worden 
gemaakt I). 

Om de tekening vergroot af te drukken is 
een 80 koloms printer wel noodzakelijk. 
De printer zal de tekening alleen met de 
kleur die U opgeeft afdrukken. Zo kan 
geraakkelijk een tekening in reversie 
afgedrukt worden door als kleur de 
achtergrondkleur in te geven. 

Het is zeer eenvoudig de tekening later 
in een programma te gebruiken door eerst 
de tekening op cassette te SAVEn. In het 
zelfgemaakte programma neemt men dan de 
DATA-regels (2450 tot en met 2540) op. 
Daarna plaatst men ook de volgende regel 
in het programma: 

10 FOR I=&HF018 TO &HF02F:READ d$: 

POKE I,VAL("&H"+d$):NEXT I: 

DEF USR0=&HF018 

Het lijnnummer mag eventueel veranderd 
worden. Nadien kan men de tekening 
steeds op het scherm laten verschijnen 
door middel van: 

SCREEN 2: X=USR(0 ) 

Zoals in het hoofdmenu te zien is kan, 
behalve het SAVEn en uitprinten van de 
tekening, nog veel meer. Er is een 
mogelijkheid om de tekening -van boven 
naar beneden- te laten scrollen, er 
kunnen cirkels worden getekend (waarvan 
de straal kan worden gewijzigd), cirkels 
en vlakken kunnen worden ingekleurd en 
het tekenen van rechthoeken is ook 
mogelijk door het opgeven van twee 
hoekpunten. Het eerste hoekpunt kan 
worden ingegeven met de spatiebalk, het 
tweede punt wordt bepaald door de plaats 
van de cursorpijl, op het moment dat de 
toets om de rechthoek te tekenen wordt 
ingedrukt. Om een ruit te tekenen dient 
dezelfde procedure als voor een 
rechthoek te worden gevolgd. Het tekenen 
wordt geactiveerd met de toets A en weer 
uitgezet met de toets Z. Om aan te geven 
dat tekenen is geactiveerd knippert het 
CAPS- lampje. 

Door op C te drukken wordt een 
kleurenkaart verkregen. Om een nieuwe 
kleur te krijgen dient de cursor op de 
gewenste kleur te worden geplaatst 
waarna met de SELECT toets de keuze 
definitief wordt. 


Onderaan het scherm staat eerst de X 
coördinaat, dan de Y coördinaat en 
vervolgens de kleur, straal en 
verplaatsingssnelheid van de cursorpijl. 


Indien het tekenen met de joystick niet 
is gewenst kan worden overgeschakeld op 
het toetsenbord door regel 340 en 900 
als volgt te wijzigen: 


ON STICK(O) GOSUB 680,690,700,710,720, 
730,740,750 


Veel tekenplezier! 
Martin Buysse 



30 ? * * 

40 * * Martin Buysse * 

50 St.Sebastiaanstr. 5 * 

60 9968 Bassevelde * 

70 BELGIE * 

90 COLOR 4,1,1!SCREEN3 

100 OPEN"grp:" AS #1sDEFINT A-Z 

110 DRAW"bm68, 50" ï PRINT#1, "MSX " 

120 COLOR11 

130 DRAW"bm56,100":PRINT#1,"SIGN" 

140 FORI=l TO 3000!NEXT!CLOSE #1 

150 KEY OFF:P0KE64683!,255:GUT170,INP 

<170)AND191 

160 GOSUB 1700 

170 REM 

1S0 REM Machine taal inlezen 
190 REM 

200 CLEAR400, &HBE00 

210 DEF USR0=8<HF000!DEF UBR1=&HF01B: D 

EF USR2=&HF030: DEF USR3=$<HF064 

220 FORI=&HF000TO&HF097:READA*:POKEI, 

VAL <"&H"+A*):NEXT 

230 COLOR 1,15,15 

240 X=0sY=0! AC=15:C=1:S=5:SN=1 

250 SCREEN2 

260 SPRITE*(0)=CHR* < 240)+CHR* < 224)+CH 
R* < 224)+CHR* <144)+CHR* < 8)+CHR* < 4)+CHR 
* <2)+CHR* <1) 

270 OPEN "grps"AS#1 

280 PUT SPRITE0, <X,Y),C 

290 DN KEY GOSUB 1030,1040,... 1080,10 

90,1130,1260 

300 KEY <1) ON:KEY <2) 0N:KEY<6) ONï KEY 
<7) ONsKEY<8) 0N:KEY<9) ON 
310 REM 








320 REM Hoofd lus 
330 REM 

20®730,740^750 ’ EOSUBé881 .*90,700,710,7 

SrKli!®’>< or*9 t <Lfl/s> ' L 

-vS ÏÏ“Ï* KEY *: IF I$=""THEN340 
^70 IF I*="A”THEN P =1 

I *"' Z " THEN 9=0!OUT170, INP1170) 

Y?PbÉt <J*, " THE N^-«! V3=Y2= X2=X, Y2= 
400 * F I*="C"THEN880 

420 IF I*= “R■■ THENLInI (xiJ y!) I (X J y) J C, 

430 IF I$= ,, E" THENL INE (X 2 , Y 2 > - (X, Y) , AC 

22® JÊ Jf =HD "THEN GOSUB1840 
4 ^ 0 I*="F”THEN GOSUB 2000 

460 IF THENLINE(X 2 ,Y 2 )-(X,Y), C, 

11% £ iJSKJfTJ T=l!GOSUB ^60 

0 ** CHR$( 11 ) THENX= 0 s Y=0;GOSUB80 

+ 7 )‘, AC, £* =CHR * (5) THENLINE (X, Y) - (255, Y 

?+7>’ <21 > THENLINE «» - Y) - <255, 

?i?-y F olS = F HR$ (9 > THENX=X+40: IFX >255TH 
520'ï; 2 ?;J,^®j B °| EB 790ELSEGOSUBa00 

g » ïsssbtssSS;»- 

|| ïf JC:s:ïlg} gg ig 
SS ïf {i-'o.'.TSIK S cfR^|?I 0 v?Tr 

N?«, I Y), I r'' X " THEN CIRCL£<x:Y):s,*C,PflI 

Wa^^Ac” THEN CIRCLE(X > Y) ,S, AC: PA 
640 GÓTO340 
650 REM 

670 rem CUrSDr best “rings routine 
6 B 0 Y=Y-SN:GOTG 760 

il% ï-ï:iïï ! ™2;t SNïe0TD 

700 X-X+SN:GOTO 760 
7 *® Y—Y+SN:X=X+SN:GOTO 760 
720 Y=Y+SNsGOTO 760 

7An v”v + S N! X=X -SN:G°T0 760 
740 X=X-SNï60T0 760 
750 x=X-SN:Y=Y-SN 

IHt x >255THENX=255 
770 IF X<0THENX=0 
7 g0 IF Y<0THENY=0 
790 IF Y>170THENY=170 
800 PUT SPRITE0, (X,Y^ C 

820 PRESET <705 1 ^ >1) ,AC » BF 

820 PRESET(0,184):PRINT#1,INT(X);INT( 

830 IF P=1THEN PSET (X Y) r 
840 RETURN UïY) , c 

850 REM 

I™ rIK Kleuren kaart 
S,™ WSgFK&i™-"»" 

?T4,s;:?j?^irst !LiNE ‘ ?+i - 20 >-” 

STtS, ’ GOSUB6B0 ’ 700, 710,7 

?«/J2rJSg?ï*4a I * =CHR *'24)THEN CIN 


920 GOTO900 

930 CLS:GOSUB1090 

940 LINE(80,184)—(105 to<\ Ar n C 

950 PRESET(82,184):PrÏn?Ü , c ’ 

960 GOTO630 «iimm»i,c 

970 REM 

990 REM Enkele hul P routines 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 


PRESET i ?; s 135 • 19 1 > . ftC, BF 

BOTO340 112 ’ 1B4>ipRINT #l.S 

^ =EN+ • 5: GOTO 1050 
SN=SN-.5 

PRESFT?fAi 8 ?o^Y (1805 191 > »AC,BF 

RETURN (142 ’ 184}!PR1 NT#1B SN 

M=USR0 (0)■RETURN 
M=USR1(0):RETURN 
REM 

R|M Tekening saven op cassette 
X=USR(0):COLOR 15 4 7.crDcr k m 

<j/n>^ CflTE 5 - 5 !RR INT^^^f n CEE I« 0 en 

1150 I$=INKEY$: IFI$='"'THPlvii ur fi , 

160 IFI*=.. N ''THEN 1220 ENllj ® 

1170 IFI$0"J"THEN1150 
1180 L0CATE2, 10; INPUT"Tp»Uonï nr. 
i l ?o« max6 *<arakters>'■; 1 $ g naam 5 

l?w« J* !7 EN<I$) >6THEN1180 

1200 I$="cas:”+I$ 

1 nni A oI 1 f * , &HEFFF 

rItURN 1 »15,15ïSCREEN 2 ;X=USR 1 (0): 

1230 REM 

1240 REM Tekening iniesen van cassett 
1250 REM 

1270 LOCATE 0 5 *S^PR^NT»T^k ? ' BCREEN « 
n Cj/n>?” * ’ j,pri NT Tekening inleze 

1280 I$=INKEY$: IFI$=" "THEN1 ?&oi 
1290 IFI$=*'N"THEN 1350 HEN 1 28 0 
1300 IFI$< >"J“THEN12B0 

uh 1 ® L08A I E2 > lfi»« INPU? 0 T ek ening 
karakters?" 51 $ 9 

1330 T* k- E N(IÏ) >6THEN1310 
1330 I$="cas: +1$ 

1340 BLOADIS 

RETURN DL0R 1 ■ 15 > 13 ! SCREEN2!X=USR 1 ( 0 )j 
1360 REM 

ÜbI rIS Tekeni "0 uitprinten 

Hit LSIflre| 8 ?:|g?^ R0 i“ LOR C.AC.13 

ten{j/N?" RINT Tekening uitprin 

N 4 l‘420lrlEÏ!Ï0 ! IF I,= " J "0 R THE 

Èe|=^R = ;'^ 0 ^ o “ E ° R C >« e - 1 =:SCR 

ffiüSi®H3ï 

1460 IF IS= ,, |s|” THEN 14 R 0 

T02” 5 LPR1NTCHR$ <15> 5 ï LPRINTCHR*(27)j » 

1490’SCREEN2s GOSUB1090 

LI NE ( 0 , 184) — (255 iqi ) £\n dc 
i^ 1 <71 pdctcct V /-* 4 _ .5 i vi j 9 AC m BF 

lflLb" <0 ’ IS4) = rr INT# 1, "E^en ge du 
1520 Y= 0 ï 1 - 0 * x =0 
1530 F0RI=1T0191 

1540 LPRINTCHRS (27) : “S" • '* 0 '?'=:a»i . 

1550 FORX=0TO255 ’ 5 0256 ? 


ncicWT) & 



1560 P=POINT <X,Y):IF P=CC THEN LPRINT 
CHR$(24);ELSE LPRINTCHR$(0) ; 

1570 IF INKEY*<>""THEN 1610' 

1580 NEXT X 

1590 LPRINTCHR*(13):Y=Y+1 
1600 NEXT I 

1610 LINE(0,184)-(255,191),AC,BF 
1620 FORI=0T0255:LPRINTCHR$(0):NEXT:L 
PRINTCHR*(24) 

1630 X=0:Y=0:GOTO340 
1640 M=USR2(0):RETURN 
1650 M=USR3 (0 > : RETURN 
1660 X=USR(0) 

1670 REM 

1680 REM Hoo-fd menu 
1690 REM 

1700 CDLOR 15,4,7: SCREEN0 :WIDTH40 
1710 LOCATE 5,5:PRINT"Menu op de prin 
ter -C j/n> " 

1720 I$=INKEY$:IF I$="J"THEN MM=1:G0T 
01740 

1730 IF I$="N"THEN MM=0 ELSE GOTO1720 
1740 CLS: RESTORE3000: P0KE&HF3B 1,25 
1750 FORI=1T024:READ L* 

1760 IF MM=1THEN LPRINTL* 

1770 PRINTL$:NEXT 

1780 I$=INKEY$:IF I$<>" "THEN 1780 
1790 IF TO0THEN 1800ELSE RETURN 
1800 COLDR 1,15,15:SCREEN2:X=USR1(0): 
RETURN 
1810 REM 

1820 REM Ruit tekenen 
1830 REM 

1840 IF Y=Y2THEN1870 
1850 IF X=X2THEN1920 
1860 RETURN 

1870 IF X>X1THEN RR=(X-X2)/2:XX=X2 
1880 IF X2>XTHEN RR=(X2—X)/2:XX=X 
1890 PSET(XX,Y),C 
1900 DRAW"E=RR:F=RRs G=RR;H=RR;" 

1910 RETURN 

1920 IF Y>Y1THEN RR=(Y-Y2)/2:YY=Y2 
1930 IF Y2>YTHEN RR=(Y2-Y)/2:YY=Y 
1940 PSET(X,YY),C 
1950 DRAW"F=RR:G=RR;H=RR;E=RR;" 

1960 RETURN 
1970 REM 

1980 REM gekleurde ruit tekenen 
1990 REM 

2000 IF Y=Y2THEN2030 
2010 IF X=X2THEN2090 
2020 RETURN 

2030 IF X>X1THEN RR=(X-X2)/2:XX=X2 
2040 IF X2>XTHEN RR=(X2-X)/2:XX=X 

2050 P*nPT<XX V) r 

2060 DRAW"E=RR;F=RR:G=RR;H=RR%" 

2070 PAINT(XX+i,Y),C 
2080 RETURN 

2090 IF Y>Y1THEN RR=(Y-Y2)/2:YY=Y2 
2100 IF Y2>YTHEN RR=(Y2-Y)/2:YY=Y 
7110 pccT t y vvi n 

2 120 DRAW"F=RR;G=RR;H=RR:E=RR;" 

2130 PAINT(X,YY+1),C 
2140 RETURN 
2150 REM 

2160 REM Tekstkaart 
2170 REM 

2180 M=USR(0):COLOR15,4,7: SCREEN0 :LOC 
ATE10,5 

2190 PRINT"Tekst aub." 

2200 L0CATE2,10:INPUT"{niet langer da 
n 256 karakters}" 5 TT$ 

2210 L0CATE5,15:PRINT"Vet gedruktCj/n 
ï?" 

2220 I$=INKEY$:IF I$=""THEN2220 
2230 COLORC,AC,15:SCREEN2:M=USR1(0) 
2240 PRESET(X,Y):PRINT#1,TT % 

2250 IF I$="J"0RI$="j"THÈNPSET(X+l,Y) 


:PRINTttl,TT$:PSET(X+l,Y+l):PRINT#1,TT 
PSET(X,Y+l):PRINT#1,TT$ 

2260 POKÈScHFCAB, 255: OÜT170, INP (170) AN 
Dl91:RETURN 
2270 REM 

2280 REM Machine taal routines 
2290 REM 

2300 REM Tekening in geheugen "TEKIG 


2310 REM 

2320 DATA 21,00,00:REM LD HL,&H0000 
2330 DATA 01,00, 17: REM LD BC,$<H1700 
2340 DATA 11,00, DB: REM LD DEi?<HDB00 
2350 DATA C5 : REM PUSH BC 

2360 DATA CD,59,00:REM CALL 0059 "rom 
routine LDIRMV" 

2370 DATA 21,00,20:REM LD HL,&H2000 
2380 DATA Cl :REM POP BC 

2390 DATA 11,00,BF:REM LD DE,S<HBF00 
2400 DATA CD,59,00:REM CALL 0059 "rom 
routine LDIRMV" 

2410 DATA C9 :REM RETURN 

2420 REM 

2430 REM Tekening uit geheugen "TEKU 
G" • 

2440 REM 

2450 DATA 21,00,dB:REM LD HL,&HD800 
2460 DATA 01,00, 17: REM LD BC,$<H1B00 
2470 DATA C5 :REM PUSH BC 

2480 DATA 11,00,00:REM LD DE,&H0000 
2490 DATA CD,5C,00:REM CALL 005C "rom 
routine LDIRVM" 

2500 DATA 21,00,BF:REM LD HL, &HBF00 
2510 DATA Cl : REM POP BC 

2520 DATA 11,00,20: REM LD DE,8<H2000 
2530 DATA CD,5C,00:REM CALL 005C "rom 
routine LDIRVM" 

2540 DATA C9 :REM RETURN 

2550 REM 

2560 REM Tekening naar boven scrollen 
"TEKBOS" 

2570 REM 

2580 DATA cd,00,F0:REM CALL F000 " TE 
<IG routine" 

2590 DATA 21,00,D9:REM LD HL,&HD900 
2600 DATA 11,00,00: REM LD DEi8<H0000 
2610 DATA 01,00,16:REM LD BC,&H1600 
2620 DATA CD,5C,00:REM CALL 005C "rom 
routine LDIRVM" 

2630 DATA 21,00, DB: REM LD HL,$<HD800 
2640 DATA 11,00,16:REM LD DE,&H1600 
2650 DATA 01,00,01: REM LD BC,8<H0100 
2660 DATA CD,5C,00:REM CALL 005C "rom 
routine LDIRVM" 

2670 DATA 21,00, C0: REM LD HL,8<HC000 
2680 DATA 11,00,20:REM LD DE,&H2000 
2690 DATA 01,00, 16:REM LD BC,?<H1600 
2700 DATA CD,5C,00:REM CALL 005C "rom 
routine LDIRVM" 

2710 DATA 21,00,BF:REM LD HL,&HBF00 
2720 DATA 11,00, 36: REM LD DE,?<H3600 
2730 DATA 01,00,01: REM LD BC,8<H0100 
2740 DATA CD,5C,00:REM CALL 005C "rom 
routine LDIRVM" 

2750 DATA C9 :REM RETURN 

2760 REM 

2770 REM Tekening naar beneden scroll 
en "TEKBES" 

2780 REM 

2790 DATA cd, 00,-f0: REM CALL F000 TEKI 
G routine 

2800 DATA 21,00,d8:REM LD HL,&HD800 
2810 DATA 11,00,01:REM LD DE,&H0100 
2820 DATA 01,00,16:REM LD BC,&H1600 
2830 DATA CD,5C,00:REM CALL 005C "rom 
routine LDIRVM" 

2840 DATA 21,00,EE:REM LD HL,8<HEE00 
2850 DATA 11,00, 00: REM LD DE,?<H0000 
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01,00,01: REM LD BC, ?<H0100 
-870 DATA CD,5C,00*REM CALL 005C "rom 
routine LDIRVM" m| 

2890 DATA ?i*22 , Sf , 5I M LD HL ^HBF00 
jlc>7k) DhTh 1 1 5 00, 21 : REM LD DP jt/Uoi 

2900 DATA 0100, 1 6s REM LD BC * &H 1 M\OS 

2910 DATA CD; 5C 00! REM CALL aS^ -ram 

routine LDIRVM" om 

2920 DATA 21,00,D5:REM l n wi » uncfl ,A 

?940 DATA 01 LD DE * ? <H2000 

%L Z% 0 ** 00 s01:REM LD BC, ?<H0100 

^SltiSÏ LDlfew» W,,REM CALL è05C " rom 

2970 pgj* C9 !REM RETURN 

§|fg rIm Data5 van het menu 

3 000 data» HOOFD menu» 
o010 DATA" " 

0.020 DATA"A=aktiveer tekenen 
tekenen" 

3030 DATA"B=rechthoek (gekl) 

hoek 

3040 DATA"C=kleur kaart 
3050 DATA"W=wis cirkel 
uren " 

3060 DATA"F'=ui tpri nten 

3070 DATA"X=cirkei (gekl) 
puntje" 

3080 DATA"+=straal vergr. 

1 verkl." y 

3090 DATA"U=scrol up 
down" 

3100 DATA"E=wis rechthoek 
untje" 

3110 DATA"D=ruit 
(gekl. ) " 

3120 DATA"Fl=sn.verhogen 
erlagen" 

O-130 DATA"F6=T.in ntemory 
t memory" 

3140 DATA"F8=T.saven 
1ez en" 

5Ji? 0 R^ A " T=tek5t kaart» 

3160 DATA" 

fsJ®n" flTA '' SHIFT+CLR H0ME=h et scherm „ 

?sof * M ™' CTRUE '" 15 regel voorbij cu 
DATA"CTRL+U=wi 5 regel" 
sfties” TA " TflE=CUrS ° r ver 5 P r i n Qt 40 po 

enhoek ATA " HE **^ E=Cllr5Dr "aar linker bov 
3220 DATA"ESC=hootd menu" 


Z=stop 

R=recht 

L=1ijn" 
K=inkle 

0 =ci rke 
spatie= 
-=straa 
S=scrol 
Q=wis p 
F=ruit 
F2=sn.v 
F7=T.ui 
F9=T.in 


3230 DATA" 
SPATIE BALK" 


DRUK OP DE 


Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 


10 - SB 
20- 58 
30 - SB 
40 - 5B 
50 - 5B 
60 - SB 
70 - 58 
BO - SB 
90 - 129 
100 - 19 
110 - 56 
120 - 215 
130 - 154 
140 - 196 
150 - 89 
160 - 101 
170 - 0 

180 - 0 
190 - 0 

200 - 53 
210 - 160 
220 - 56 


Rege 

Rege 

Rege 

Rege 

Regel 

Regel 

Rege! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


230 - 131 
240 - 162 
250 - 216 
260 - 210 
270 - 96 
280 - 116 
290 - 0 
300 - 149 
310 - 0 
320 - 0 
330 - 0 
340 - 82 
350 - 52 
360 - 10 
370 - 215 
3B0 - 7 
390 - 58 
400 - 233 
410 - 65 
420 - 181 
430 - 47 
440 - 91 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Regel 

Rege! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


450 - 253 
460 - 235 
470 - 189 
480 - 196 
490 - 253 
500 - 196 
510 - 166 
520 - 204 
530 - 161 
540 - 167 
550 - 196 
560 - 195 
570 - 203 
580 - 195 
590 - 224 
600 - 199 
610 - 108 
620 - 11 
630 - 140 
640 - 236 
650 - 0 

660 - 0 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 

[ Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 

I Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 


670 - 0 

680 - 31 
690 - 138 
700 - 28 
710 - 137 
720 - 30 
730 - 138 
740 - 29 
750 - 160 
760 - 46 
770 - 54 
780 - 56 
790 - 134 
800 - 116 
810 - 250 
820 - 218 
830 - 117 
840 - 142 
850 - 0 

860 - 0 
870 - 0 

880 - 55 
890 - 200 
900 - 82 
910 - 152 
920 - 30 
930 - 186 
940 - 107 
950 - 215 
960 - 15 
970 - 0 

980 - 0 

990 - 0 

1000 - 167 
1010 - 5 
1020 - 236 
1030 - 190 
1040 - 208 
1050 - 242 
1060 - 113 
1070 - 142 
1080 - 84 
1090 - 85 
1100 - 0 
1110 - 0 
1120 - 0 
1130 - 80 
1140 - 47 
1150 - 23 
1160 - 73 
1170 - 206 
1180 - 161 
1190 - 135 
1200 - 111 
1210 - 89 
1220 - 47 
1230 - 0 

1240 - 
1250 - 
1260 - 
1270 - 7 

1280 - 154 
1290 - 204 
1300 - 81 
1310 - 161 
1320 - 10 
1330 - 111 
1340 - 60 
1350 - 47 
1360 - 0 

1370 - 0 

1380 - 0 

1390 - 59 
1400 - 163 
1410 - 69 
1420 - 96 
1430 - 48 
1440 - 122 
1450 - 163 
1460 - 142 
1470 - 251 
1480 - 51 
1490 - 243 
1500 - 179 
1510 - 49 
1520 - 110 


0 

0 


Regel: 1530 - 115 
Regel: 1540 - 6 

Regel: 1550 - 193 
Regel: 1560 - 205 
Regel: 1570 - 17 
Regel: 1580 - 251 
Regel: 1590 - 125 
Regel: 1600 - 236 
Regel: 1610 - 179 
Regel: 1620 - 33 
Regel: 1630 - 17 
Regel: 1640 - 86 
Regel: 1650 - 87 
Regel: 1660 - 134 
Regel: 1670 - 0 

Regel: 16B0 - 0 

Regel: 1690 - 0 

Regel: 1700 - 161 
Regel: 1710 - 31 
Regel: 1720 - 79 
Regel: 1730 - 157 
Regel: 1740 - 12 
Regel: 1750 - 29 
Regel: 1760 - 77 
Regel: 1770 - 190 
Regel: 1780 - 222 
Regel: 1790 - 142 
Regel: 1800 - 47 
Regel: 1810 - 0 

Regel: 1820 - 0 

Regel: 1830 - 0 

Regel: 1840 - 187 
Regel: 1850 - 235 
Regel: 1860 - 142 
Regel: 1870 - 150 
Regel: 1880 - 101 
Regel: 1890 - 183 
Regel: 1900 - 140 
Regel: 1910 - 142 
Regel: 1920 - 157 
Regel: 1930 - 108 
Regel: 1940 - 184 
Regel: 1950 - 140 
Regel: 1960 - 142 
Regel: 1970 - 0 

Regel: 1980 - 0 

Regel: 1990 - 0 

Regel: 2000 - 91 
Regel: 2010 - 150 
Regel: 2020 - 142 
Regel: 2030 - 150 
Regel: 2040 - 101 
Regel: 2050 - 183 
Regel: 2060 - 140 
Regel: 2070 - 183 
Regel: 2080 - 142 
Regel: 2090 - 157 
Regel: 2100 - 108 
Regel: 2110 - 184 
Regel: 2120 - 140 
Regel: 2130 - 184 
Regel: 2140 - 142 
Regel: 2150 - 0 

Regel: 2160 - 0 

Regel: 2170 - 0 

Regel: 2180 - 146 
Regel: 2190 - 102 
Regel: 2200 - 115 
Regel: 2210 - 202 
Regel; 2220 - 105 
Regel: 2230 - 211 
Regel: 2240 - 233 
Regel: 2250 - 168 
Regel: 2260 - 101 
Regel: 2270 - 0 

Regel: 2280 - 0 

Regel: 2290 - 0 

Regel: 2300 - 0 

Regel: 2310 - 0 

Regel: 2320 - 89 
Regel: 2330 - 95 
Regel: 2340 - 116 
Regel: 2350 - 22 
Regel: 2360 - 139 
Regel: 2370 - 91 
Regel: 2380 - 18 


Regel: 2390 - 128 
Regel: 2400 - 139 
Regel: 2410 - 26 
Regel: 2420 - 0 

Regel: 2430 - 0 

Regel: 2440 - 0 

Regel: 2450 - 149 
Regel: 2460 - 95 
Regel: 2470 - 22 
Regel: 2480 - 88 
Regel: 2490 - 149 
Regel: 2500 - 129 
Regel: 2510 - 18 
Regel: 2520 - 90 
Regel: 2530 - 149 
Regel: 2540 - 26 
Regel: 2550 - 0 

Regel: 2560 - 0 

Regel: 2570 - 0 

Regel: 2580 - 211 
Regel: 2590 - 118 
Regel: 2600 - 88 
Regel: 2610 - 94 
Regel: 2620 - 149 
Regel: 2630 - 117 
Regel: 2640 - 95 
Regel: 2650 - 88 
Regel: 2660 - 149 
Regel: 2670 - 108 
Regel: 2680 - 90 
Regel: 2690 - 94 
Regel: 2700 - 149 
Regel: 2710 - 129 
Regel: 2720 - 97 
Regel: 2730 - 88 
Regel: 2740 - 149 
Regel: 2750 - 26 
Regel: 2760 - 0 

Regel: 2770 - 0 

Regel: 2780 - 0 

Regel: 2790 - 243 
Regel: 2800 - 149 
Regel: 2810 - 89 
Regel: 2B20 - 94 
Regel: 2830 - 149 
Regel: 2840 - 131 
Regel: 2850 - 88 
Regel: 2860 - 8B 
Regel: 2870 - 149 
Regel: 2880 - 129 
Regel: 2890 - 91 
Regel: 2900 - 94 
Regel: 2910 - 149 
Regel: 2920 - 114 
Regel: 2930 - 90 
Regel: 2940 - 88 
Regel: 2950 - 149 
Regel: 2960 - 26 
Regel: 2970 - 0 

Regel: 2980 - 0 

Regel: 2990 - 0 

Regel: 3000 - 45 
Regel: 3010 - 200 
Regel: 3020 - 82 
Regel: 3030 - 164 
Regel: 3040 - 180 
Regel: 3050 - 158 
Regel: 3060 - 173 
Regel: 3070 - 228 
Regel: 3080 - 46 
Regel: 3090 - 77 
Regel: 3100 - 177 
Regel: 3110 - 86 
Regel: 3120 - 193 
Regel: 3130 - 154 
Regel: 3140 - 149 
Regel: 3150 - 183 
Regel: 3160 - 72 
Regel: 3170 - 116 
Regel: 3180 - 5 

Regel: 3190 - 60 
Regel: 3200 - 2 

Regel: 3210 - 20 
Regel: 3220 - 197 
Regel: 3230 - 134 
Totaal: 32760 






FUNKTIETOETSEN VULLEN 


U weet waarschijnlijk dat het vullen van 
de funktietoetsen, in BASIC, met het 
commando KEY gebeurt. 

KEY l,"LIST" vult funktietoets 1 met 
LIST. Een karakter dat binnen de 
aanhalingstekens niet gebruikt kan 
worden is het aanhalingsteken zelf. We 
kunnen aanhalingstekens echter vervangen 
door CHR$(34). We geven bijvoorbeeld 
funktietoets F2 de tekst LOAD"CAS:" door 
in te typen: 

KEY 2,”LOAD"+CHR$(34)+"CAS:”+CHR$(34) 

RETURN voeren we in met CHR$(13). 
Sluiten we een funktietoets- string 
hiermee af, dan wordt de funktie bij het 
indrukken van de funktietoets ook direkt 
uitgevoerd. Funktietoets 3 krijgt de 
inhoud RENUM RETURN door in te typen: 

KEY 3,"RENUM”+CHR$(13) 


CHR$- waarden, die bij het vullen van 
een funktietoets handig zijn, zijn in 
onderstaande tabel opgenomen met hun 
betekenis erachter. 


CHR$ Funktie 

2 Cursor terug naar vorige woord. 

3 RETURN, maar zonder dat regel 
wordt opgenomen. 

5 Wis alles rechts van cursor. 

6 Cursor naar volgende woord. 

7 BEEP 

8 BS (back-space toets) 

9 TAB 

11 HOME (cursor naar linksboven) 

12 CLS (scherm schoonmaken) 

13 RETURN 

14 Cursor naar eind van de regel. 

18 INS (Insert toets) 

21 Wis regel waarop de cursor staat. 
24 SELECT 

27 ESC 

28 Cursor rechts. 

29 Cursor links 

30 Cursor omhoog 

31 Cursor omlaag 

34 Aanhalingsteken (") 

127 DEL (Delete toets) 


KEY 5,CHR$(2)+CHR$(18)+"SCREEN M +CHR$(13) 

Typt U: 1 F5 in, dan krijgt U SCREEN1. 

Nu volgen nog enkele voorbeelden van 
funktietoets— inhouden, waarbij de 
werking aan de hand van de tabel, of 
door proberen, kan worden nagegaan. 

KEY 6,CHR$(21)+CHR$(13) 

KEY 7,CHR$(5)+CHR$(3) 

KEY 8,"BLOAD"+CHR$(34)+”CAS:"+CHR$(34)+ 
",R"+CHR$(13) 

KEY 9,"CHR$( )"+CHR$(29)+CHR$(29)+ 

CHR$(29) 


De maximale lengte van een funktietoets- 
string is 16 tekens. Het scherm kunnen 
we schoonmaken met "CLS"+CHR$(13). Dit 
neemt 4 posities in de string in. Het is 
echter te vervangen door CHR$(12), wat 
slechts 1 positie in beslag neemt en 
hetzelfde effect heeft. 

Er zijn commando's die altijd een aantal 
cijfers achter zich hebben zoals SCREEN 
(0,1,2,3) en WIDTH (meestal 
29,32,37,40). We kunnen natuurlijk 
alleen WIDTH in de funktietoets zetten 
en zelf de cijfers er achteraan typen, 
gevolgd door RETURN. Handiger is de 
volgende oplossing: 

KEY 4,CHR$(2)+CHR$(18)+"WIDTH"+CHR$(13) 

U typt de cijfers, die achter het WIDTH 
commando horen, in en drukt op F4. 
Automatisch gaat de cursor naar het 
eerste cijfer, insert het woord WIDTH, 
zodat er WIDTH nn staat (nn = ingetypte 
cijfers) en er wordt een RETURN gegeven. 


Maar de beste toepassingen verzint U 
natuurlijk zelf! 

Veel succes ermee. 


Beeldscherm: WIDTH 36 


10 ’ 
20 • 
30 * 
40 ’ 
50 ? 
60 ' 
70 ' 
an 

80 ’ 
90 ' 
100 ’ 
CT 

110 * 
120 ' 
130 ' 
140 ' 
150 * 
160 ’ 


Twintig Funktietoetsen 


Door: Mare Spierenburg 

Met deze routine kunt U kiezen 
uit twee sets voor de inhoud v 

de -funktietoetsen. 

Dit kiezen gebeurt met de 3ELE 

toets: 

SELECT => eerste set 
SHIFT+SELECT => tweede set 

De routine start U met 
BLOAD "cas:“,R, 
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170 

180 

190 

200 

de 

210 

220 

230 

240 

ul- 

250 

260 

270 

280 

290 

300 

310 


Door regel 600 t/m 690 aan te 
passen kunt U de inhoud van de 
eerste set vastleggen. De twee 

set is de standaardset (color, 
auto enz.) 

Handige chr$-waarden bij het v 

len van -funktietoetsen: 

chr$(12) = cis 
chr$(13) = return 
chr$(34> = " 


” Bl0ad " !CHR * <34) ! " CaS 
"FUNKTS" ,!<HE700, 

H4(!) END 

850 ’- 


320 ’ 

330 RESTORE: T=0 

340 FOR 1=1 TO 50 

350 READ A$:A=VAL("&H"+A$) 

360 T=T+A:NEXT 

370 IF T<>5640 THEN PRINT"FOUT IN RE 
GEL 860 T/M 900":STOP 
380 * 

390 T=0 

400 FOR 1=1 TO 54 

410 RE AD A$: A=VAL < ”&H"+A$) 

420 T=T+A:NEXT 

«f T< >7303 THEN PRINT"FOUT IN RE 
GEL 910 T/M 960":STOP 
440 ’ 

450 RESTORE 

460 FOR I=&HE700 TO &HE767 
470 READ A$:A=VAL ("S<H"+A*> 

480 POKE I,AsNEXT 

490 DEFUSR=S<HE700: A=USR (0) 

500 ? 

510 CLS:KEYON 

520 PRINT:PRINT"De data is in het ge 
heugen gezet" y 

530 PRINT:PRINT"Druk nu op SELECT" 
540 DEFUSR=342:A=USR(0). P 

590 P INKEY * <>C HR*<&H18> THEN 550 

600 KEY1, "keyo-f f "+CHR$ (13) 

610 KEY2,"mot or"+CHR$(13) 

620 KEY3,"renurn " 

6o.0 KEY4, CHR$ < 12) + " 1 oad " +CHR$ (34) + " c 
as: ,, +CHR*(34)+",r"+CHR*<13) 

640 KEY5,CHR$(12)+"bload"+CHR$(34)+" 
c as:"+CHR$(34)+",r"+CHR*(13) 

K|Y6 5 "keyon";CHR$(13) 

660 KEY7, "de-f usr=&H" 

670 KEYB,"?usr(" 

680 KEY9,"screen0"+CHR$(13) 

690 KEY10,"?fre(q)"+CHR$(13) 

700 ’ 

710 KEYON:CLS . 

cDrder’ui,ar» NT " Zet d * 

730 PRINT"om te saven" 

740 PRINT:PRINT"Druk op SHIFT+SELECT 

750 A=USR(0) 

760 IF INKEY$="" THEN 760 

770 PRINT:PRINT"De standaardset is w 

eer verschenen* 1 

d °° r u regei * 

7 wordt" NT ' VOerde 1 etoets inhoud 

800 PRINT"meegesaved." 

810 PRINT:PRINT"Start de routine voo 
rtaan met:" 


860 DATA DD,21,9F,FD,3E,14,DD,77,01, 

870 DATA E7,DD,77,02,3E,C3,DD,77,00, 

880 DATA F5,3E,07,CD,41,01,CB,77,28, 

|890 DATA F1, C9,00,CD,CF,00,3E,06,CD, 

900 DATA 01,CB,47,28,0F,3A,67,E7,FE, 

910 DATA CC, 4A, E7, 3E, 01,32, 67, E7, F1, 

920 DATA 3A,67,E7,FE,01,CC,4A,E7,97, 

930 DATA 67,E7,F1,C9,06,A0,DD,21,7F, 

940 DATA FD, 21,68, E7, DD, 56,00, FD, 5E, 

950 DATA DD,73,00,FD,72,00,DD,23,FD, 

960 DATA 10,EE,C9,00 

970 ? - 



Door: Peter v.d. Aar 
































GEBRUIKSAANWIJZING VOOR HET PROGRAMMA 
TAFET.E' • 


Eerst een tikt lp: regel 130 schakelt de 
runkt Letoetsen en de stoptoets uit 
bovendien wordt de computer hier geat¬ 
tendeerd op de foutafhandelingsroutine. 
Dit kan lastig zijn bij eventueel tus¬ 
sentijds bekijken van het programma. 
Wellicht is het daarom verstandig deze 
regel als laatste in te tikken. 

Als het programma is ingetikt, zet het 
dan eerst even op cassette (zeker wan¬ 
neer regel 130 al ingetikt is), want het 
programma is, als het eenmaal loopt op 
geen enkele wijze te stoppen . 

Het programma is een tafeloverhoorpro— 
gramma, dat uitgaat van een 'leerkracht' 
en een of meer 'leerlingen'. Die termen 
worden dan ook in het programma ge~ 
bruikt. 

Voordat de eerste 'leerling' begint, 
moet de 'leerkracht' enkele gegevens 
invoeren. De computer vraagt om het 
aantal leerlingen, tot en met welke 
tafel overhoord moet worden, het aantal 
sommen per leerling en hoe lang deze 
leerling over die sommen mag doen. 

Als deze gegevens verstrekt zijn, worden 
ze op het beeldscherm herhaald en kan er 
eventueel verbeterd worden. Als de leer¬ 
kracht meldt, dat alle gegevens juist 
zijn, krijgt hij een stukje tekst te 
zien, waaruit blijkt dat hij/zij het 
programma voortijdig kan afbreken (als 
er minder leerlingen zijn dan gepland) 
door voordat een volgende leerling zou 
beginnen op funktietoets 1 te drukken. 

Na een druk op de knop 'select' kan de 
eerste leerling aantreden. De naam wordt 
gevraagd, waarna een spinneweb wordt 
getekend en een torenklokachtig geluid 
klinkt• Hierna wordt de leerling welkom 
geheten en kan hij/zij sommen gaan ma¬ 
ken. 

Als een antwoord goed is, verschijnt het 
woord PRIMA in het beeld (waarbij de 
letters van alle kanten komen aanschui— 
ven) en klinkt er een muziekje. Is het 
antwoord fout, dan klinkt er een knal 
gevolgd door aanhoudende 'klapjes'. Het 
juiste antwoord wordt getoond. Na een 
druk op 'select' stopt het geluid en 
komt de volgende som. Als het door de 
leerkracht gewenste aantal sommen ge¬ 
maakt is, wordt dit de leerling gemeld. 
Hij/zij krijgt dan te zien hoeveel som¬ 
men er gemaakt zijn en hoeveel er daar¬ 
van goed waren. Ook als de ingestelde 
tijd verstreken is, wordt dit gemeld met 
het bereikte resultaat. Hierna wordt 
gemeld, dat de volgende leerling geroe¬ 
pen kan worden, waarna het geheel zich 
herhaald. 

Als de laatste leerling geweest is, 
wordt gemeld dat de leerkracht ('juf/ 
mees') geroepen moet worden, waarna deze 
via het codewoord de uitslag van alle 
leerlingen kan verkrijgen. Het standaard 
ingebrachte codewoord is 'uitslag', maar 
dit woord is natuurlijk te wijzigen (zie 
onder de beschrijving van dit program¬ 
ma). Het codewoord wordt niet getoond op 



het scherm, terwijl het ingetikt wordt, 
zodat eventueel meekijkende leerlingen 
niet te weten komen wat het codewoord 
is. 

Na de uitslag bekeken te hebben, kan de 
leerkracht op 'select' drukken. Hierna 
kan de uitslag eventueel nogmaals beke¬ 
ken worden. Dan wordt geinformeerd of er 
nog meer leerlingen met het programma 
moeten werken. Als het antwoord hier 
'ja' is, start het programma geheel 
opnieuw. Wordt er 'nee' geantwoord, dan 
volgt er een reset. 

Veel plezier. 

PETER VAN DER AAR. 

BESCHRIJVING VAN HET PROGRAMMA 'TAFELS'. 

Het hoofdprogramma werkt met een aantal 
geneste lussen, waaruit op een paar 
extra manieren te ontsnappen valt. Ver¬ 
der wordt er vanuit het hoofdprogramma 
steeds naar de subroutines gesprongen. 
Hieronder in het kort de beschrijving 
van het gehele programma: 

Regel 130 schakelt de funktietoetsen en 
de stoptoets uit (poke &HFBB1,1) en er 
wordt verwezen naar de foutafhandelings¬ 
routine. 

In regel 170 wordt het spinneweb gedi¬ 
mensioneerd. Dat lijkt een vreemde 
plaats, maar dat moet hier gebeuren in 
verband met de fornextlussen verderop. 
In de inleiding (regel 200 en verder) 
wordt een aantal variabelen ingevoerd. 

Op regel 480 begint het hoofdprogramma 
met de 'leerlingenlus'. Hieruit is al¬ 
leen via de fl toets te ontsnappen (zie 
de subroutine op regel 2100 en verder). 
T is de teller voor het juiste aantal 
antwoorden. 

In regel 510/520 wordt de toetsenbord— 
buffer leeggemaakt. 

Regel 530/540 schakelt een eventuele 
CAPS-stand uit. 

Regel 590 en verder maakt van de eerste 
letter van de naam van de leerling een 
hoofdletter. 

De regels 650 en verder zijn een aardig¬ 
heidje. Ze hebben met de loop van het 
programma niets te maken. Er wordt 'Hoi' 
op het scherm gezet, er klinkt klokgelui 
en een 'spinneweb' wordt getekend (met 
dank aan A.C.J.Groeneveld). 

Regel 780/790 schakelt het geluid uit. 
Regel 850 en verder tekent een poesje en 
geeft een korte uitleg. De schijnbaar 
zinloze Random in regel 990 zorgt er¬ 
voor, dat niet steeds dezelfde getallen 
gegenereerd worden, doordat de tijd 
voordat de select-knop wordt ingedrukt, 
meespeelt. 

Regel 1040 leest de sprites in via de 
subroutine. 

Op regel 1080 begint de 'sommenlus'. 
Hieruit is alleen te ontsnappen door te 
lang bezig te zijn (zie regel 1090) of 
uiteraard als het opgegeven aantal som¬ 
men gemaakt is (regel 1110) 

Regel 1120 genereert een heel positief 
getal onder de 11 (voor het eerste getal 
van de vermenigvuldig-som) 

Regel 1130 genereert een heel positief 






f®*?} t ?! : /n n met a et °Pg e g even maximum. 
Regel 1140 zet de som op het scherm, 

waarna (regel 1260) naar de invoersub- 
routine wordt gesprongen. 

Regel 1280 maakt van de ingevoerde 
string een numeriek. 

In regel 1290 wordt gekeken of naar de 
subroutine 'goed' (regel 2280 e.v.) of 
naar de subroutine 'fout' (regel 2880 
e.v.) moet worden gesprongen. 

Op regel 1340 e.v. wordt afscheid geno- 
men van de leerling en krijgt hij/zij 
het eigen resultaat te zien. J 

In regel 1480 e.v. wordt via 'select' 
naar de volgende leerling of de leer 
kracht verwezen. 

Regel 1660 e.v. zorgt voor het einde van 
net programma. Het codewoord is 'uit¬ 
slag . Als je dit codewoord wilt veran¬ 
deren, moet je de eerste letter van ie 
eigen codewoord in regel 1690 zetten 
(dit in verband met het transparant 
maken van de tekst) en in regel 1710 de 
rest van het codewoord, 

6en f0 5 -next lus ê even de regels 
ï/zu e.v. de gedimensioneerde namen en 

De rest s P reekt v oor zich. 
Regel 2060 zorgt voor een reset. 

Regel 2100 e.v. is de invoer-routine 

de , naam * . De invoer-routine is bij¬ 
zonder krachtig. Zo worden alle niet- 
gewenste toetsen uitgeschakeld. In dit 
geval werken alleen de letters, de spa¬ 
tie en het streepje. Cijfers, tekens, 
cursortoetsen en dergelijke doen niets. 
Tevens wordt de lengte van de invoer 
beperkt (hier tot twaalf). 

Regel 2190 en verder is de invoerroutine 
voor de uitkomst. Hier gebeurt iets 
dergelijks. De invoerlengte is hier 4 
imn 0t8 5 e uitkomst is immers 10 x 100 = 

1000, dus Vier cijfers). Alleen de cij¬ 
fer toetsen reageren hier. De rest is 
uitgeschakeld. 

Regel 2280 e.v.: invoerroutine 'goed'. 

De teller wordt met 1 verhoogd en de 
sprites worden -met een muziekje- op het 
scherm gezet. De regels 2740 en verder 
maken de sprites weer onzichtbaar. 

Regel 2880 en verder is de foute ant- 
woord-routine. Spreekt dacht ik voor 
zich, evenals de subroutine 'tijd is om' 
(regel 3150 e.v.) en de foutafhande- 

lingsroutine (regel 3340 e.v.). Geheel 
onderaan (regel 3480 e.v.) vinden we de 
prima-sprites- 
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a> 

a> 

a> 

cd 

CD 

CD 

CD 


(C) 


CD 

a> 

CD 

CD 

CD 

CD 

CD 


10 
20 
30 
40 
50 
60 
70 
80 

90 CD CD CD CD CD CD CD CD CD CD <DCD<DCDCDCD<DCDCDCDCDCDCDCDCD 

100 ? 

110 ? 

120 ? 

£ L f t' EYDFF: CLS: SCREEN0: COLO 

R ü 1 2’ 4: WI . DT H37: POKE&HFBBl, 1: KEY1. " •• 
: KEY2, " : KEY3, " " : KEY4, " ": KÈY5 " " • k'FY 

6 , 11 " : ..KEY8, "" — * KEY 

":ONERRORGOTO3^40 
140 •’ 

150 •’ Spinne—web 

160 * 

170 
180 
190 
200 
210 
I 220 

230 


IKEY 9 ,""•KEY 10 ," 
dimensi onering 


BP= 15 
DIliA (BP, 1 ) 

’ Inleiding 


LOCATE 0 , 0,0 

. p ^ IW T"Dit programma overhoort de 

PBn,T»u Van J v ! ir ü? eni9vuldin Q- " 
240 PRINT-Voordat de eerste leerlino 

begint, moet de leerkracht enkele 
gegevens invoeren." 

250 PRINT:PRINT:PRINT" 1 ) Hoeveel 1 
eerlingen gaan er nu m e t dit 

programma werken? (maxima 

al 20 ) ";:INPUTC (maxima 

260 IFC< 1 ORC > 20 ORC< >INT(C)THENPRINT" 
Dat kan niet !":GOTO 250 
270 DIMC*(C),SS(C),S(C) 

ïn^PRTNT " 4 , . overhoord word 

pyj D ' PRINT (maximaal 100 ) "; ■ in 

290 IFD< 0 ORD > 1 00 ORD<>INT(D)THENPRINT 
"Dat kan niet !":GDTO 280 m 

mnff PRI !'| T! PRINT" 3 ) Hoeveel sommen 

moet ieder kind maken'? 

al 50 )";:INPUTE a ' 6n? (maxima 

310 IFE< 1 ORE > 50 ORE<>INT(E)THENPRINT" 
Dat kan niet!":GOTO 300 
320 PRïNTsPR^T" 4 ) Hoelang mag de 
leerling er over doen (in mi nut 

en) (max. 20 )";:INPUTH mi nut 

t?" ! BOTO 320 H>20THENPRINT " Dat kan nie 
340 CLS:PRINT!PRINT"Even controleren 


350 PRINT:PRINT" 
ngen: "C 
360 PRINT" 2 ) 

"D 

370 PRINT" 3 ) 

"E 

380 PRINT" 4 ) 

"H"minuten" 

390 PRINT:PRINT"Klopt dit^ 

B*=INKEY$ 

IFB*="J » ORB*= »j » THEN 440 

rnTnalfl " *-*^®* = " n " THEN 60 
GOTG 400 

PRÏNT:PRINT:PRINT-U kunt de uits 
voortijdig":PRINT:PRINT"verkrijg 
fnenHo r T (vo ?r dat een":PRINT:PRINT"vo 

•PRINT-in 6 !^ 1 ZO i : 1 be ginnen) ": PRINT 
.PRINT op funktie-toets 1 te drukken 


400 
410 
420 
430 
440 
1 ag 


1> Aantal leerli 
Tot en met tafel van: 

Aantal sommen: 

Tijd: 

< j/n) 




















450 PRINT:PRINT:PRINT"Druk op de kno 
p 'SELECT' om de eerstel eer1ing te 1 
aten beginnen." 

460 B$=INKEY$:IFB$=CHR$(24)THEN500EL 
SE460 
470 * 

' *** Hoo-fdprogramma leerling 


*** Prima—sprites inlezen 


480 

490 

500 

0 

510 

520 

530 

540 

550 

560 


DEFUSR1=342 
U=UBR1(0) 

POKE&HFCAB, 8<H0 
OUT170,1NP(170)0R64 
F'RINT"Hoe heet je ? " 

LOCATE1,8,0:PRINT"(Maximaal 
etters)" 

570 L0CATE14,0,1:IL=12:GOSUB2100 
IFA*=""THENCLS:GOTO550 
B=ASC(MID$(A$,1, 1)) 
IFB>96ANDB<123THENB=B-32 
MID$(A$,1,1>=CHR*(B) 


12 1 


' *** Klokgelui en spinneweb 

SCREEN2:C0L0R4,11,3:CLS 
SOUND0,178:SOUND1,43:S0UND2,105: 


580 
590 
600 
610 
620 
630 
640 
650 

660 ,_,__ 

S0UND3,36:S0UND4,105:S0UND5,36?SOUND 
7,56:SOUNDS,16:S0UND9,3:SOUND10,16:S 
0UND11,233:SOUND12,69:SOUND13,8 
670 OPEN"grp:"F0R0ÜTPUTAS#1 

PRESET(115,87):PRINT#1,"Hoi " 
FORI=0TOBP 

A(I,0)=COS(I/BP*6.28)*125+125 
A(I,1 )=SIN(I/BP*6. 28)*90+90 
NEXTI 

FORI=0TOBP-1:F0RJ=I+1T0BP 
LINE(A(I,0),A(I,1))-(A(J,0),A(J, 


680 
690 
700 
710 
720 
730 
740 
1) ) 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


NEXTJ:NEXTI 
FORBB=ITO1500:NEXT 
KEY1,"" 

DEFUSR=144 
U=USR(0) 

’ *** Uitleg 


860 

870 

880 

890 

900 

910 

920 


"A$". Hoe gaat":PR 
het met je?":PRIN 


SCREEN2:C0L0R15,1,7 
PSET(34,103) 

- DRAW"C9D2L1D2L1D2L1D3L1D1L1D3L1D 

2L1D1L1D3L1D2L1D4L1U1L1D1L5U2L1U4R3D 
1R2U3L1U1L1U1L2D1L1D1L1D8R1D3R5U1R4D 
2R5D1R6D1R2U2R1U2R1U4L1U23L1D2L3U2L1 

PAINT(35,110),9 
PSET(35,108),ï:PSET(38,108),1 
PSET(37,110),1:PSET(37,111),1 
PSET(36,112),1:PSET(37,112),1 
COLOR1,3,7 
PRESET(9,1) 

PRINT#1,"Dag, 

INT#1,"":PRINT#1, 

T#l,"":PRINTttl,"" 

930 PRINT#1," We gaan dadelijk wat" 
PRINT#1,"":PRINT#1," tafel sommen mak 
en. " 

940 PRINT#1,"":PRINT#1,"":PRINT#1, 
Veel succes!" 

950 PRESET(9,160) 

960 PRINTttl,"Druk op 'SELECT' als je 
* PRINT#1,"":PRINT#1," wilt beginnen 

970 DEFUSR1=342 
980 U=USR1(0) 

990 B$=INKEY$:RN=RND(1):IFB$=CHR$(24 
)THEN1000ELSE990 

1000 SCREEN1,1:C0L0R1,13,13:TIME=0 
1010 ’ 


GOSUB3480 


*** Sommen—routine 


FORF=1TOC:SCREEN0:COLOR15,4,4:T= 


F0RG=1T0E 

IFTIME >H*3000THENGOSUB3150ELSEG 
120 

C* (F)=A$: SS (F) =G-1: S (F) =T 
IFF=CTHENGOTO1580ELSEGOTO1510 
X=CINT(RND(1)* 11) 

Y=CINT(RND(1)*D+1) 

CLS 

LOCATE1,1,0 
PRINT"SOM "G 
L0CATE4,3,0 

RR l NT;; 

PRINT" © @ 

PRINT" © ":L0CATE23,5,0:PRIN 


PRINT" © 
PRINT" 


©" 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
0T01 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 

1180 
1190 
1200 
I T"©" 

1 1210 
1220 

1230 DEFUSR1=342 
1240 U=USR1(0) 

1250 L0CATE7,5,0:PRINTX"x"Y"= " 

1260 LOCATE17,5,0:IL=4:GOSUB2190 
1270 IFZ$=""THEN1140 
1280 Z=VAL(Z$) 

1290 I FZ=X *YTHENGOSUB2280ELSEGOSUB28 
180 

1300 NEXT 
1310 ’ 

1320 * *** Klaar 
1330 ” 

1340 SCREEN2:COLOR15,1,7 
1350 PSET(34,103) 

I1360 DRAW"C9D2L1D2L1D2L1D3L1D1L1D3L1 
D2L1D1L1D3L1D2L1D4L1U1L1D1L5U2L1U4R3 
D1R2U3L1U1L1U1L2D1L1D1L1D8R1D3R5U1R4 
|D2R5D1R6D1R2U2R1U2R1U4L1U23L1D2L3U2L 

1370 PAINT(35,110),9 
1380 PSET(35,108),1:PSET(38,108),1 
1390 PSET(37,110),1:PSET(37,111),1 
1400 PSET(36,112),1:PSET(37,112),1 
1410 PRESET(9,1) 

1420 PRINT#l,"Je hebt genoeg":PRINT# 
1,"":PRINT#1," gedaan, "Af:PRINT#1," 

Je hebt"G-l"sommen ge 


1430 PRINT#1," 
maakt." 

1440 PRINT#1,"" 

1450 PRINT#1," Je had er"T"goed." 
1460 PRESET(9,170) 

1470 PRINT#1,"Druk op 'SELECT'." 
1480 B*=INKEY*:IFB$=CHR$(24)THEN1490 
ELSEI480 

1490 C$(F)=A*:SS(F)=G-1:S(F)=T 
1500 IFF=CTHEN1580 
1510 SCREEN3 
1520 PSET(1,1) 

1530 PRINT#1,"Roep ’t":PRINT#l,"volg 
en—":PRINT#1,"de kind" 

1540 PRINT#1,"" 

1550 PRINT#1,"Druk op":PRINT#1,"SELE 
CT" 

1560 B$=INKEY % :IFB$=CHR$(24)THEN1570 

ELSEI560 

1570 CLOSE:NEXTF 

1580 SCREEN3 

1590 PSET(1,1) 

1600 PRINT#1,"Roep je":PRINT#1,"juf/ 
mees" 

1610 PRINT#1,"Druk op":PRINT#1,"SELE 
CT 
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ElIÊi620 INKEY * !IFB * =CHR * <24> THEN1660 
1630 ' 

1640 ' *** Einde ***LET ÜP: Het code 
1 65& , woord is 'uitslag' 

1660 SCREEN0: C0L0R15,4,4!PRINT"Tik h 

et code-woord":PRINT 

1670 POKE&HFCAB,&H0 

J6 80 OUT 170, INP<170)OR64 

1690 Bf=INKEYfsIFBf="u"THEN1700ELSE1 

1700 COLOR0:LINEINPUTBf 

1720 COLSi'i*® 139 " THEN1 ?20ELSE 1 
1730 WIDTH40 

ABt22f»Iantiï , » ,,naam,,TAB<15> " aantal " T 

1750 PRINTTAB(15)"sommen"TAB(22)"goe 

1760 PRINT 
1770 FORKL=lTOC 

1780)PRINTC*(KL)TAB(15)SS(KL)TAB(22) 

1790 NEXTKL 

1800 L0CATE28, 10, 0: 

1810 L0CATE28,11,0:PRINT"^ ^ 

1820 L0CATE28,12,0:PRINT"^ GEZIEN? ^ 




1830 L0CATE28,13,0sPRINT"^ 

1840 L0CATE28,14,0:PRINT"ü druk 
1850 L0CATE28,15,0:PRINT"^ dan 
1860 L0CATE28,16,05PRINT"^ op 
1870 L0CATE28,17,0 ïPRINT"^ 

1880 L0CATE2B,18,0:PRINT"^ SELECT 
1890 L0CATE2B,19,0:PRINT"^ 

1900 LOCATE28, 20,0s PR I NT " $£$$$$$«$$$ 

ELSE1910 1NKEY * !1f B$=CHR*(24)THEN1920 

1920 CLSsPRINT" Wilt U de uitslag no 
g eens zien? (j/n)" y 

1930 Bf=INKEYf 

} ™ ï FB f = , M J ”ORB*= " J " THEN 1730 

IIm BOTor9M ORB *‘" N " THEN1970 
1970 L0CATE1,10 

1980 PRINT"Wi1t U nog meer kinderen 
Sn? ?j/n) !PRINT " P r °9ramma r iïïSn e ^?k 
1990 B$=ÏNKEY$ • 

2000 IFB$="j"ORBf="J"THEN60 

2020 ^r;?; ORB$=,,N " THEN2060 

2030 ’ 

2040 ' «Kent Reset 
2050 5 

20 6 ® DEFUS R=0 * PRINTUSR(0) 

2070 11 

2090 > *** Invoer “ r °utine naam 

2100 A$=" " 5 KEY1, CHRf (237) » EI = 1 ■ Prtnjt 
STRING*(IL,46)STRING*(IL 29 > • 

2110 XI*=INPUT*(1> VIFXIï=CHRi(237)Rn 
TO1660 s ELSEIFXI*=CHR*(13)THENPRINTSP 

ssa/fesa*’ > "™«el«s5jïs 


V} Z®r£Ll ï*5 CHR *(32)ORXI$ >CHR*(32)AND 
XI$<,CH R $ (4vj) ORXI*>CHR* (45) ANDXI*<CHR 
f(65)ORXI*>CHR*(90)ANDXI*<CHR*(97)OR 
XI*>CHR*(122)THEN2110 

c J t 1 f X ï * =CHR *(8)ORXI*=CHR*(29)THEN 

Ii-| E prTÏ 5 Ef 1 r N l 1 = 15 G0T02 110! ELSE 
A*-LEFT*(A*,EI-1):PRINTCHR*(29)"."CH 

R*(29);:G0T02110 ' * LM 

2140 IFEI=IL+1G0T02110 

02110 PR INTXI * 5:EI=E:i + l! A*=A*+XI % s GOT 
2160 * 

2J? 0 ’ *** Invoer-routine uitkomst 
2180 * 

?r?ng^ï::^) i : isprintstrin ^ <il ^ 2 > s 

NPRINTSPACEfVlL-LEN(Z*)TT reTURN^ELSE 
IFXI*=CHR*(8)GOTO2220 # ■ Kt,UKN * ELSE 

N2200 1FX1$< CHR * < 48 > ORXI* >CHR*(57)THE 

2220 IFXI*=CHR*(8)ORXI*=CHR*(29)THEN 

IZ J 11 1 = 0THENE1 = 1 *GOTO2200s ELSE 
ef Tolf T , EI -1) * PR I NTCHR* (29) " " CH 

R*(29);: GOTO2200 

2230 IFEI = IL+1GOTO2200 

n?^L PRINTXI * 5:EI=EI+ 1 ! Z*=Z*+XI*!G0T 
02200 

2250 ' 

2260 ' ### Subroutine "GOED" 
t 2270 * 

2280 T=T+1 

2290 PLA Y"v11T90LBO5ECO4GO5C.D16C" 
2300 PLAY"S3M466T90L8O5ECO4GO5C.D16C 

2310 PLAY"S14M777T90L8O5ECO4GO5C.D16 

2320 P=240:Q=108 
2330 IFP=30THEN2370 
2340 PUTSPRITE1,(P,Q),l,l 
2350 P=P—3 ’’ 

2360 GOTO2330 

2370 P=240:Q=5 

2380 IFP=46THEN2440 

2390 PUTSPRITE2,(P,Q),1,2 

2400 P=P-4:Q=Q+2 

2410 IFQ >100THENO=100 

2420 IFP< 46THENP=46 

2430 GOTO2380 

2440 P=62sQ=l 

2450 PUTSPRITE3,(P,Q),1, 3 

2460 IFQ=108THEN2500 

2470 Q=Q+3 

2480 IFQ >108THENQ=108 
2490 GOTO2450 
2500 P=78sQ=190 

Mil ^ RITE4 - 

2530 IFQ=<5THEN2550 
2540 GOTO2510 
2550 P=7B:Q=5 
2560 IFQ= >1 00THENQ= 100 
2570 PUTSPRITE4,(P,Q),1,4 
2580 IFQ=100THEN26 ï 0 
2590 Q=Q+10 
2600 GOTO2560 

2610 PUTSPRITE5,(94,84),10,5 
2620 FORB=lTO100s NEXT ' ' 

2630 PUTSPRITE5,(94,132),11,5 
2640 FORB=1TO100:NEXT 

10l?NEXT SPRITE5 ’ <94 » 84 ) ü7,5:FORB=1TO 

2660 PUTSPRITE5,(94,132),1,5 

2670 F0RB=ITO100:NEXT 

2680 PUTSPRITE5,(94,84),4,5 

2690 FORB=1TO100ïNEXT 

2700 PUTSPRITE5,(94,132),15,5 

271^ FORB=1TO100!NEXT ’ 
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2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2B60 

2870 

2880 

2B90 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 


PUTSPRITE5, (94,91),1,5 
FORB=1TO1200:NÈXT 
PUTSPRITE1,(10,10),0,1 
FORB=1TO50:NEXT 
PUTSPRITE2,(10,10),0,2 
FORB=1TO50:NEXT 
PUTSPRITE3,(10,10),0,3 
FORB=1TO50:NEXT 
PUTSPRITE4,(10,10),0,4 
FORB=1TO50:NEXT 


PUTSPRITE5,(10,10) 
FORB=1TO50!NEXT 
RETURN 


,0,5 


*** Subroutine "FOUT" 


3100 
3110 
3120 
3130 ’ 
3140 
3150 
3160 
3170 


U=USR(0) 

RETURN 

♦ Tijd is om 


SCREEN2 
PSET (34, 10! 


5) 


---~ DRAW"C9D2L1D2L1D2L1D3L1D1L1D3L1 
D2L1D1L1D3L1D2L1D4L1U1L1D1L5U2L1U4R3 
D1R2U3L1U1L1U1L2D1L1D1L1D8R1D3R5U1R4 
D2R5D1R6D1R2U2R1U2R1U4L1U23L1D2L3U2L 
1" 

PAINT(35,110),9 
PSET(35,108),1:PSET(38,108),1 
PSET(37,110),1:PSET(37,111),1 
PSET(36,112),1:PSET(37,112)i1 
PRESET(9,1) 

PRINT#1," Jammer, "A*"." 

PRINT#!..PRINT#!,” De tijd is 


Je hebt"G— 
maakte 


3180 
3190 
3200 
3210 
3220 
3230 
3240 
om. 

3250 PRINT#1, PRINT#1,” 

1"sommen gemaakt." 

3260 PRINT#1,"":PRINT#1," Je 
er"T"goed." 

3270 PRESET(9,170) 

3280 PRINTttl ,"Druk op »SELECT'." 

3290 B*=INKEY*:IFB*=CHR*(24)THEN3300 

ELSE3290 

3300 RETURN 

3310 ’ 

3320 •’ *** Fout-a-f handel i ng 
3330 * 

3340 SCREEN0! CLS:IFERL< 480THENRUN 
3350 IFERR=5ANDERL=12B0THENSCREEN1,1 
s GOSUB3480:RÉSUMÉ1140ELSEPRINT"FOUT" 
ERR"IN REGEL"ERL"." 


3360 PRINT:PRINTSPRINT 
3370 PRINT"ROEP JE LEERKRACHT 
SPRINT:PRINT 

3380 PRINT"ROEP JE LEERKRACHT 
sPRINTsPRINT 
3390 PRINT"ROEP JE LEERKRACHT • 1 
sPRINTsPRINT 
3400 PRINTS PRINT:PRINT 

PRINT"Tik 'opnieuw' om door 


i i i i 


i i i i i ■■ 


iii» 


3410 

gaan 

3420 

3430 

3440 


te 


SOUND0,250:SOUND1,0 
S0UND6,20 s S0UND7,20 s SOUND13,20 
FORGL=15TO0STEP-!,05 
SOUNDB,GL 
NEXTGL 
SOUND6,27 
S0UND7;55 
S0UND8,16 
SOUND11,49 
SOUND12,8 
SOUND13,8 
LOCATE1,10 

PRINT"JAMMER!!!!"sPRINT 
PRINT"Dit antwoord is FOUT!!!": 

PRINT 

3020 PRINT"Het moest zijn:"sPRINT 
3030 PRINTTAB(7) X " x " Y " = " X # Y 
3040 PRINT:PRINTTAB(7)"Volgende keer 
":PRINTTAB(7)"beter, "A* 

3050 
CT' 

3060 
3070 
3080 


PRINT:PRINT:PRÏNT"Druk op *SELE 


PRINTsPRINT 
LINEINPUTFR* 

IFFR*="opnieuw"ORFR*="OPNIEUW" T 
HENT=0: CLOSE:CLS:RESUME510ELSE3340 
3450 * 

3460 ’ ### sprites 
3470 • 

3480 SPRI TE* (1) =CHR* (&HFF) +CHR* (&HC3 
) +CHR*(&HDB) +CHR* (&HC3) +CHR* (8<HDF) +C 
HR* (&HDF) +CHR* (&HDF) +CHR* (&HFF) 

3490 SPRITE*(2)=CHR*(&HFF)+CHR*(&HC3 
) +CHR* (&HDB) +CHR* (8<HC3) +CHR* (&HCF) +C 
HR* (8<HD7) +CHR* (&HDB > +CHR* (&HFF) 

3500 SPR I TE* (3) =CHR* (&HFF) +CHR* (&HC7 
) +CHR* (8<HEF) +CHR* (&HEF) +CHR* (&HEF) +C 
HR* (&HEF) +CHR* (&HC7) +CHR* (?<HFF) 

3510 SPR I TE* (4) =CHR* (&HFF) +CHR* (8<H93 
) +CHR* (&HAB) +CHR* (&HAB) +CHR* (&HBB) +C 
I HR* (&HBB) +CHR* (&HBB) +CHR* (&HFF) 

3520 SPR I TE* (5) =CHR* (&HFF) +CHR* (&HEF 
) +CHR* (&HD7) +CHR* (&HBB) +CHR* (&H83) +C 
HR* (&HBB) +CHR* (&HBB) +CHR* (?<HFF) 

3530 RETURN 
3540 ’ 

3550 ’ 

3560 ’****************************** 


DEFUSR1=342 
U=USR1(0) 

B*=INKEY*:IFB*=CHR*(24)THEN3090 
ELSE3080 
3090 DEFUSR=144 
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10 - 58 
20 - 58 
30 - 58 
40 - 58 
50 - 58 
60 - 58 
70 - 58 
B0 - 58 
90 - 58 
100 - 58 
110 - 58 
120 - 58 
130 - 138 
140 - 58 
150 - 58 
160 - 58 
170 - 159 
180 - 232 
190 - 58 
200 - 58 
210 - 58 
220 - 99 
230 - 165 
240 - 187 
250 - 85 
260 - 73 
270 - 250 
280 - 131 
290 - 187 
300 - 65 
310 - 130 
320 - 213 
330 - 73 
340 - 12 
350 - 205 
360 - 47 
370 - 240 
380 - 227 
390 - 160 
400 - 65 
410 - 9 
420 - 148 
430 - 40 
440 - 237 
450 - 232 
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460 - 251 
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500 - 26 
510 - 232 
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530 - 131 
540 - 96 
550 - 37 
560 - 156 
570 - 90 
580 - 149 
590 - 202 
600 - 74 
610 - 203 
620 - 58 
630 - 58 
640 - 58 
650 - 67 
660 - 97 
670 - 17 
6B0 - 1B4 
690 - 54 
700 - 225 
710 - 153 
720 - 204 
730 - 230 
740 - 255 
750 - 211 
760 - 154 
770 - 78 
780 - 2 

790 - 131 
800 - 58 
810 - 58 
820 - 58 
830 - 111 
840 - 230 
850 - 44 
860 - 49 
870 - 145 
880 - 151 
890 - 153 
900 - 83 
910 - 108 
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Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 
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Rege 
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920 - 19 
930 - 130 
940 - 246 
950 - 9 

960 - 213 
970 - 232 
980 - 149 
990 - 184 
1000 - 179 
1010 - 58 
1020 - 58 
1030 - 58 
1040 - 64 
1050 - 58 
1060 - 58 
1070 - 58 
1080 - 232 
1090 - 3 

1100 - 106 
1110 - 3 

1120 - 44 
1130 - 90 
1140 - 159 
1150 - 101 
1160 - 43 
1170 - 106 
1180 - 253 
1190 - 25 
1200 - 191 
1210 - 25 
1220 - 125 
1230 - 232 
1240 - 149 
1250 - 72 
1260 - 181 
1270 - 156 
12B0 - 171 
1290 - 158 
1300 - 131 
1310 - 58 
1320 - 58 
1330 - 58 
1340 - 111 
1350 - 230 
1360 - 44 
1370 - 49 
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EEN MODIFICEERBARE DATA-BASE 

ST-FILE 

HANDLEIDING ST-FILE. 

e ^n data-base programma. Het 
neemt inclusief werkruimte voor de com¬ 
puter ca. 10 Kb geheugen in beslag 
zodat er voor het bestand zelf 19 Kb 
geheugenruimte overblijft. In het oro- 
gramma is een uitgebreide raadpleegfSnk- 

in 2fShïï; Een aantal toet ^n ê heeft 
funktie: Programma een specifieke 

<select>: Het programma is volledig me- 
nugestuurd. Met de 'select' 
toets wordt naar een hoger 
menu teruggegaan. Hij is vrii- 
wel overal te gebruiken waar 
een invoer gevraagd wordt. 

Bij enkele schermen heeft de 
select toets nog een bijzon¬ 
dere funktie. Zie aldaar. 


<esc>: 


ïn de linkerbovenhoek ver¬ 
schijnen regelmatig (fout)mel¬ 
dingen, voorafgegaan door een 
beep . Voordat het programma 
vervolgd kan worden, dient 
middels de 'esc' toets de 
melding weggehaald te worden. 
Op deze wijze wordt voorkomen, 
dat meldingen aan de aandacht 
ontsnappen• 


<cursor>: 


toetsen. Door het gebruik van 
een specifieke (fool-proof) 
invoerroutine kunnen de cur- 
sortoetsen niet op de normale 
manier gebruikt worden. (Cur- 
sor naar links/boven wist de 
geheie invoer, naar beneden/ 
rechts heeft geen effekt). i n 
dit programma hebben zij een 
besturingsfunktie. In het al¬ 
gemeen kan ermee -afhankelijk 
van het gekozen scherm- naar 
e vorige of volgende invoer— 
regel danwel het vorige of 
vo gende record gegaan worden, 
hij het scherm 'wijzigen' kun¬ 
nen de cursortoetsen wel op 
nagenoeg normale wijze ge¬ 
bruikt worden. s 

Het gehele programma is fool-proof. 


S O ri 



HOOFDMENU 


AANVULLEN 1 

WIJZIGEN / 
VERNIETIGEN 2 

RAADPLEGEN 3 

SORTEREN 4 

BEWAREN 5 


ST-FILE 


keuze ■ 



ST-FILE begint met de vraag of er een 
nieuw bestand aangemaakt moet worden of 
dat er een oud bestand van cassette 
geladen moet worden. Bij de laatste 
keuze wordt na het laden (ca 6 minuten 
bij een maximaal bestand) automatisch 
naar het hoofdmenu gesprongen. 

Bij aanmaak van een nieuw bestand vraagt 
het programma de recordindeling (naam en 
lengte van de velden) in te voeren. Een 
record kan uit maximaal 15 velden be¬ 
staan, terwijl de lengte van een veld 
maximaal 24 tekens lang mag zijn. Tevens 
geldt als restriktie, dat de recordleng- 
te niet groter mag worden dan 255. Bij 
overschrijdingen van bovengenoemde gren¬ 
zen zal er een foutmelding verschijnen. 
Bij de bepaling van de veldlengte dient 
er rekening mee gehouden te worden, dat 
deze lengte in elk record gereserveerd 
wordt, ongeacht de werkelijke inhoud. 
Vooral bij grote bestanden is het dus 
belangrijk de veldlengte zo kort moge¬ 
lijk te houden. 

Indien het gewenste aantal velden be¬ 
noemd is, kan de invoer met de 'select' 
toets bevestigd worden, waarna automa¬ 
tisch het scherm 'INVOER BESTAND' geko¬ 
zen wordt. In de rechterbovenhoek ver¬ 
schijnt daarbij het maximale aantal in 
te voeren records (afhankelijk van de 
recordlengte) en het in te voeten re— 
cordnummer. De invoer van records kan 
beëindigd worden middels de 'select' 
toets bij de eerste invoerregel van een 
nieuw record, waarna naar het hoofdmenu 
teruggesprongen wordt. De daar getoonde 
keuzemogelijkheden 'aanvullen', 'sorte¬ 
ren' en 'bewaren' verklaren zichzelf. 

Bij de schermen 'WIJZIGEN/VERNIETIGEN' 
en RAADPLEGEN valt nog op te merken, 
dat bij het selektief benaderen van een 
bestand meerdere selectiegegevens opge¬ 
geven mogen worden. Indien de gewenste 
selectiegegevens ingevoerd zijn, dient 
de 'select' toets gebruikt te worden om 
de invoer te beëindigen en de selectie 
te starten. Let wel: alle records, die 
aan de selectiecriteria voldoen, worden 
geselecteerd. De cursortoetsen worden 
hier gebruikt voor het tonen van het 
volgende of vorige geselecteerde record. 
Met betrekking tot het sorteren is nog 
het volgende van belang: 

Indien bij bepaalde velden getallen 
ingevoerd worden, worden deze behan¬ 
deld als strings, waardoor het sorte¬ 
ren ervan tot fouten zal leiden, in¬ 
dien het aantal cijfers niet gelijk is 
(b.v. 5 is dan groter dan 23). Dit kan 
voorkomen worden door voorloopnullen 
te gebruiken, zodat alle getallen 
dezelfde lengte hebben. 

- Correct sorteerbare (geboorte)data 
dienen als volgt ingevoerd te worden: 

JJJJ-MM-DD 

Veel plezier ermee. 



PROGRAMMABESCHRIJVING ST-FILE. 
STRINGBEHANDELING: 

Alle velden behorende tot een record 
worden ondergebracht in een stringvaria- 
bele BB(X)* Er wordt dus voor het be¬ 
stand een 1-diraensionale array opge¬ 
bouwd. Deze oplossing heeft een drietal 
belangrijke voordelen ten opzichte van 
het gebruik van een 2-dimensionale ar¬ 
ray: 

1. Een 2-dimensionele stringarray kost 
erg veel geheugenruimte (b.v. een DIM 
A$ (250,15) kost ca 12000 bytes), 
waardoor er te weinig geheugen over— 
blijft voor het programma en het 
bestand. 

2. Er wordt een aanzienlijke tijdwinst 
verkregen bij het sorteren, daar er 
d.m.y. 1 swap-instruktie 2 records 
verwisseld kunnen worden. Bij een 2- 
dimensionale array kost dit bij 15 
velden per record 15 swap-instruk- 
ties. 

3. Een 2-dimensionale array zou tot 
enorme garbage-collection problemen 
leiden (zie MSX-GIDS nr.2). 

De afzonderlijke velden worden benaderd 
met de MID$ instruktie. Hiervoor is het 
wel noodzakelijk, dat de plaats van het 
eerste teken en de lengte bekend zijn. 
Deze beide gegevens worden bij de invoer 
van de vaste gegevens ingegeven c.q. 

✓ en 0 P8enomen in de array L 

(15,2). (Regel 1380). 

INPUTR0UTINE: 

De fool-proof invoerroutine is te vinden 
in de regels 1490 t/m 1620. Voordat deze 
routine aangeroepen wordt, wordt er 
eerst een drietal variabelen benoemd: HH 
voor de horizontale positie op het 
scherm, VV voor de vertikale positie en 
11 voor het aantal in te voeren tekens. 
Regel 1500: print voor het aantal in te 
voeren tekens liggende 
streepjes op de juiste loka- 
tie. 

1510: invoer 1 karakter 
1520—1530: controle op besturingstoetsen 
(select + cursortoetsen), dan 
return. 

1540 en 

1590—1600: controle op 'BS' toets, dan 1 
teken terug. 

1550 en 

1610-1620: controle op 'return' toets, 
dan invoer aanvullen met spa¬ 
ties tot juiste aantal tekens 
en RETURN• Het resultaat 
staat in II. 

1560: controle op niet—toegestane 
tekens 

1570: controle op maximaal aantal 

tekens, dan 'BEEP' 

1580: ingevoerd karakter in II en 
printen 
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SORTEREN: 

V °?u . bet sor teren wordt de shellsort- 

mIxGIDS n??2! Uikt Z ° alS beschreva n in 

(FOUT)MELOINGEN: Regels 590-840 

ve?schiinpn 0rt in ® ebouwde helpfunktie 
nf v er re ê elma tig meldingen in 

de linkerbovenhoek. In de regels 650-810 

F(X) e gede d ?r- me \ dln8en in d - ^ringarrly 
t{X '. gedefinieerd. De eigenliike fout- 

routine staat in de regels 590-610. Voor¬ 
dat deze aangeroepen wordt, wordt het 
nummer van de melding gedêfi"£e£d iï 

Diverse vaakgebruikte Instrukties ziin 
ondergebracht in subroutines. Deze ziin 
te vinden in de regels 860-1150. J 

inhöudf" 1 ” 3 ^ varIabe ^ en heeft een vaare 

NV(X) : veldnamen 
MX,Y): startnummer en lengte 
van de diverse velden in 
een record 

BBfOï+rno : 5 e ? ord nummer x 

(0)+C(X) : hulparrays, waarin de te 
selecteren gegevens op¬ 
genomen worden. Dit ge- 

b f“£t in de regels 2760- 
^o40. 

AF. . het aantal records in 

een bestand 

• het maximale aantal re¬ 
cords 

T : het nummer van het re¬ 

cord in bewerking 
s : de naam van het scherm, 

Ff50 j 3t /i n g ? brulk is 

r(X; . de (fout)meldingen 

J.W.M. THIJSSEN. 

Beeldscherm: WIDTH 36 


10 DAT Brflrht d ? or Sjaak Thijssen 
Brechtstraat 33 te Venlri 

20 REM nl ° 

40 Rif! INITIALISA TIE 

50 CLEAR 1 9700 3 CLSs UII DTW^o 

70 60Si5bI« Z ' DEFSTRB ' 1 -S- DEFSNGQ 

1MC(Js 5 ,V “ S> iDIML <1 = .2> >DIMBB<2S1) ,0 
90 KEYOFF 

}•• S="INITIALISATIE"sGOSUBB10 
110 LOCATE0,6,0jPRINT"NIEUW bestand 

120 LDCATE0,7SPRINT"OUD BESTAND 2 

}50 ?OfUB910!IFI="N"THEN100 
160 IFX-2THEN360 00 

170 G0SUB1130 
180 GOSUB1920 
190 REM 

200 REM HOOFDMENU 
210 REM 

220 S=» HOOFDMENU"s G0SUB810 


230 LOCATE0,6 
240 PRINT"AANVULLEN 1 ■■ 

250 PRINT-WIJZIGEN /« 

260 PRINT" VERNIETIGEN 2" 

270 PRINT"RAADPLEGEN 3" 

2fg PRINT"SORTEREN 4" 

290 PRINT"BEWAREN 5 " 

UT*fV??v T oi?/Jf«PRINT"keuze "jii = x NP 
320 MW™# 5196 *’ 2140°5Ï30ll3§0f 1810 

330 REM 

350 rIm BEBTAND VAN CASSETTE 
360 S="BESTAND VAN CASSETTE"sG0SUBS1 
370 F54=9s 6OSUB520 

RUNpCtSÏJav' " F0RINPUTAS * 11 INPUT# 1, A 
^LOCATÉb.S,PRINT"AANTAL RECORDS: 

400 F0RX=1T0AV:LINEINPUT#1,NV(X>:NEX 

?NEXT 0RX " 1T0W ' 1NPUT * 1 - I -(X,1).L<X,2) 

420 AM= 19000/ (L (AV, 1) +L (AV 2)-15.Ttra 
M>250THENAM»250 ' 2 > DsIFA 

430 T=1s GOSUB1090 
}*g LINEINPUT#1,BB<T) 

IPE°F<1>THENCLOBEsGOTO470 
T=I+1 s BOSUB10901GOTO440 
^70 IFAR-TTHENBOTO220 

ORDSs^" j"aR* PRINT" 1 N TE LEZEN REC 
DS® PRINT" INGELEZEN RECOR 

510 REM 1 0 * GOSUB520! SOTO220 

520 REM FOUTROUTINE 
530 REM 

540 BEEPsLOCATE0,0gPRINTF (FV) 

®50 S=INKEY$ tIFS< >CHR*(27)THEN530 

570 REM ATE0 ' 01 PR1NTF (0) 1 RETUR N 

PI REM FDUTME UDINSEN 

g?£BTRFiDIMFU7> 

610 F (0) =s M 

SS E!4>-;;vel dl engte min . l" 

ha EaS?“ veldlBn 9te max. 24" 

e!5 “ ver P lichte ingave" 

660 F!ïl-»m eCOr ?4 en9te ma ** 255" 

F(5) ="max. 15 velden" 

H 0 F<6>“"startnummer buiten bestand 

Ê!Z! = " t ® ru9 kan n i®t" 

EJi?" einc le bestand" 

700 F(9)-"*et cassette-recorder klaa 

Ti® P<10) =s "inleesfout" 

730 F i!“"necord is vernietigd" 

740 p m? " fonteren beëindigd" 

750 F }J - 1 record in bestand" 

7A0 cJ J2s”,. 9een S ®1 ectiecri terium" 

T60 F<15)-"record is gewijziad" 

TT® F <16)-"bestand vol" 9 

lg^record" " keYl!BWi jZi9!1 ke y2=verniet 
790 RETURN 
800 REM 

810 REM KOP+CLS 
820 REM 
830 CLS 
840 PRINT 



850 PRINT" 


860 PRINT"! 
ST-FILE I"; 

870 PRINT" L 


880 LDCATE 2 , 2 :PRINTS; 

890 RETURN 
900 REM 

910 REM ACCODRD J/N ROUTINE 
920 REM 

930 L0CATE22 ,22 

940 PRINT"accoord Cj/n) "::I=INPUT*< 
n : IFI="j"THENI="J»ELSEIFI="n"THENI« 

950 IFI< >"J"ANDI< >"N"THEN930ELSERETU 
RN 

960 REM 

970 REM PRINT VELDNAMEN 
980 REM 

990 FORX-1TOAV: LOCATE0,X+4: PRINTNV< X 

) .. . tNEXT 

1000 RETURN 
1010 REM 

1020 REM PRINT VELDINHOUD 
1030 REM 

1040 F0RX=1T0AV*L0CATE15,X+4iPRINTMI 
D*(BB(T),L(X,1),L(X, 2 ))s tNEXT 
1050 RETURN 
1060 REM 

1070 REM PRINT RECORDNUMMER 
1080 REM 

1090 L0CATE35, 0 !PRINTUSINB"###": T * : R 

ETURN 

1100 REM 

1110 REM INVOER VASTE GEGEVENS 
1120 REM 

1130 S="VASTE GEGEVENS"tGOSUBB 10 
1140 AV=0:X=1:L(0, 1>=1 
1150 LOCATE0,5*PRINT"VELDNAAM 
VELDLENGTE" 

1160 HH= 0 : VV=X+ 6 :TT =12 

1170 GOSUB1420 

1180 IFS=CHR$ <31)THEN1170 

1190 IFS-CHR*<30)ANDX>1THENLOCATE0,X 

+6:PRINTSPACE$<38) 5 !X=X- 1 sGOTOl160 

1200 IFS=CHR*(30)THEN1170 

1210 IF6=CHR$(24)ANDX>1THEN1370 

1220 IFS-CHR*(24)THENF7.-3*GOSUB520ïG 

□Tul 170 

1230 IFLEFT*( 11 , 1 )»" "THENFX-3:GOSUB 

520:GOTOl170 

1240 NV < X)=11 

1250 HH=20:TT=2 

1260 GOSUB1420 

1270 IFS=CHR$(31)ORS-CHR* < 24)THEN126 
0 

1280 IFS-CHR*(30)ANDX >1THENLOCATE0.X 
+ 6 : PRINTSPACE* (38) 5 :X-X-l:GOTOl160 
1290 IFB=CHR*(30)THEN1260 
1300 Y=VAL(II) 

1310 IFY< 1 THENF*/.= 1 : GOSUB520s GOTO 1260 
1320 IFY >24THENF7.=2: GOSUB520: GOTO 126 
0 

1330 L(X,2)=Y:L(X,1)=L(X-1,1)+L(X-1, 

1340 IF(L(X, 1)+L(X,2)-1) >255THENF7.=4 
IGOSUB520:GOTOl130 

1350 X-X + l* IFX>15THENF7.=5:GOSUB520*G 

OTO1370 

1360 GOTOl160 

1370 AV=X—1 

1380 AM-19000/(L(AV,1)+L(AV,2)-1):IF 
AM >250THENAM=250 
1390 G0SUB910 

1400 IFI="N"THENGOTO1130ELSERETURN 


1410 REM 

1420 REM INGAVE ROUTINE 
1430 REM 
1440 11="" 

1450 LOCATEHH ,VV,0:PRINTSTRING$(TT, " 
_") i :LOCATEHH,VV 
1460 S=INKE Y*:IFS=""THEN1460 
1470 IFB-CHR*(28)THENB-CHR*(31)ELSEI 
FS-CHR*(29)THENB=CHR*(30) 

1480 IFB-CHR*(24)ORS-CHR*(30)ORB=CHR 

* < 31)THENIFLEN(II) -0THENRETURN 

1490 IFB=CHR*(8)THEN1540 

1500 IFB=CHR$(13)THEN1560 

1510 IFASC(S)< 320RASC(S)>122THENBEEP 

:GOTO1460 

1520 IFLEN(II)=TTTHENBEEPs GOTO1460 
11 = 11+S:PRINTS* * GOTO1460 
IFII=""THENBEEP:GOTO1460 
II»LEFT*(IIpLEN(II)-l):PRINTCHR 
;CHR$(8);:GOTOl460 
II=II+BTRING*(TT-LEN(II),32)sLO 
CATEHH,VV:PRINTII $ * RETURN 
1570 RETURN 
REM 

REM SORTEREN 
REM 

B="SORTEREN":G06UBB10 
IF AR< 2THENFY.® 13 * GOBUB520: G0T022 


1530 
1540 
1550 

$(8)j" 

1560 


1580 

1590 

1600 

1610 

1620 

0 

1630 
S " 

1640 


LOCATE 0 ,5:FORX= 1 TOAV:PRINTNV(X) 
";USING"##";X:NEXT 
LOCATE0,22:PRINT"op welk veld s 
orteren"; 

1650 HH=23* VV=22* TT=2:GOSUB1420 
1660 IFB=CHR*(24)THEN220 
1670 T«VAL <11)* IFT<1ORT >AVTHEN1650 
1680 ONINTERVAL=50GOBUB1780 
1690 Q=AR* (. 15+( (AR/100) *.03) > :Q 7 .=Q/ 
60:Q=Q5i+ (Q~ (Q7.*60) )/100 
1700 LOCATE0,23*PRINT"sorteertijd ±" 
ii PRINTUSING"##.##"* Q: 

1710 TIME-0»INTERVALON 
1720 XI-AR 

1730 X1=INT(Xl/2) 1 IFX1 -0THEN 1770ELSE 
X 2 =l 1 X3-AR-X1 
1740 X4-X2 

1750 X5-X4+X1:IFM1D*(BB(X4),L(T,1),L 
(T,2))=<MID*(BB(X5),L(T,l),L(Tp2))TH 
EN1760ELSESWAPBB(X4),BB(X5)* X4-X4-X1 
|IFX4=>1THEN1750 

1760 X2-X2+1:IFX2>X3THEN1730ELSE1740 
1770 INTERVALOFF:F%-12 * BOSUB520:RETU 
RN 

1780 Q-TIME/50: Q7.-Q/60* Q-Q 7 .+ (Q- (Q */.*6 
0))/100 

1790 LOCATE30,0:PRINTUSING"##.##"* Q * 

* RETURN 
1800 REM 

1810 REM BEWAREN 
1820 REM 

1830 S="BEWAREN"* G0SUB810 
1840 G0BUB910:IFI="N"THENRETURN 
1850 F7.=9:GOSUB520: LOCATE0,5*PRINT"A 
ANTAL RECORDS: "5 AR 

1860 OPEN " CAS: " FOROUTPUTAS# 1 * PR I NT# 1 
,AR:PRINT#1,AV 

1870 FORX=lTOAV*PRINT#l,NV(X)iNEXT 
1880 FORX-1TOAV*PRINT# 1 pL(X,1)jL(X ,2 
):NEXT * * * 

1890 FORX=lTOAR:PRINT#1,BB(X)tLOCATE 
35,0*PRINTUSING"###" 5 X::NEXTX 
1900 CLOSE*RETURN 
1910 REM 

1920 REM INVOER BESTAND 
1930 REM 

1940 8 ="INVOER BESTAND":GDSUBB10 
1950 AR— 0 * GDTO1970 


20 






1970 fn^ULLEN " s GOSUBB10 

1970 L0CATE29,0e PRINTUBING"### /» s am 

19S0 AR=AR+1 

1990 I FAR >AMTHENF'/.=16. GOSUB520, RETUR 

23 gSbSb9?| UB1070 

2020 HHN15 g X® 5 1 

2030 BB(AR)«SPACE*(L <AV,1) +L (AV,2)-1 

2040 VV=X+4ï TT«=L (X 2) 

20S0 GOSUB1420 f 

=AR-1JrItSrn*‘ 241flND * =1 «ndar >1thenar 

2070 IFS-CHR*(24)ORG=CHR*(SI)THEN20S 
2100 »I?ï«“<«R»,L(X il ),L(X,2)>.II 

2130 REM 

2130 £§fj WIJZIGEN/VERNIETIGEN 

Uil IS^IiII^ VERNIETIGEN " 

IS §S?£??É UB22R ® ’ 

2210 REM 

MIS rIm ver nietigen 

SS. SffiggT >' 

2270 LÜCATE0^22! PR^TSPACE^ (38) ; • RET 

22B0 REM 

i§00 F EM WIJZIGEN 

2310 X*1 
2320 Y=0 

2330 L0CATE15+Y,X+4 
2340 S=INPUT$(1) 

^?URN FS ” CHR * <24>THENF ’'-‘1 = =BOSUB=20 ! 

m?ifx<!aSthem 23 melsefv*, < ? 1 ^ henx " ): 

i RETURN MtNZ 320ELSEF‘/.= 15ï GOSUB520 

X=rfBEEPrGDTO2340ELÜE2330 1 ‘ IFX<1THEN 
330 <Xj2)-l5BEEPsGOTO2340ELSE2 

Uil rIm RflftDPLEGEN 

83 Sm"SSSS^,'^RS 8 u ?( 

THENLOCATE0, SfpRINTF U7W ®’ 1 ’ *" W " 
? ?PRIN?fpJfS} 6 * PRINT " Z0EI<CRIT ERIUM . 

SS RïSPBEffi^ 4: 


pSt*(i? WTE10 ’ 13 > R RINT“k.uie , I= IN 

Islg xEwl 1 ? I * <24) THENR E tur N 

lil SjjSS&iSF^ 

IS 3 asywsraans*—- ■ - ■ 

2540 IFS-CHR* (30) ORB-CHR* (31) THEN253 

IshS t 1 ( 24 > THEN2460 

2580 IFLEFT*(II,l>— "THENT«11G0T026 

OSUB520yGOTO2550 FT< 1 DRT>ARTH ENF7.=6: G 

ES 3 - ? ^-r 88 ' 1, -" w ” 

§430 GDSUbISm' KEY <2> DFF1 GOSL ®1*70 

I «0 I- e ^?ï ;KEY(2>0n 

foFFl GOTO 2440 <24> THENKEY <1> OFPiKEY (2 

SSe^^ssswrss 

2690 GOTO2650 

™fSL§C^I°I^?^ FEEF T* <SB, 1 

i^5 e Jig c ri E& ' 5 iRRI ^tI 7 ^lecteren g 

f" 2 f "("nEXT^ 0 * 71F0R X“ 1TOAVI PRINTNV (X) 
vjl?+ lTaV R 2") = ' YY " 0 ' EB<0> “ sp ACE*(L(A 

ifJffiss;Ta;waifsis)ss„. L 
gi.'fflSRSRWJSaBSRitS 

PliiiPi--™ 

ijW'IEwSSiSSil.'gl^gsyJsJ 

2820 T«1 bTT ■1 

2630 KEY Cl) OFF ■ k*PV / r > \ ncrr 

T0lll| FT>ftRTHERT = RR - F °“8.BOSUB520,GO 

2910 1 FT< ' 1 THENT=0 * P5i=7 ï GDSUB520 s GOTO 
®OSUB1070oX«0 

c<f. In lm o» Tsèw ? i j: < c < *'■ 1 .!>.*-( 

2890 GOBUB 1020 

I910 s F ÏnkÉyÏ , key<2>0N 

iiff T i??rig?SiiIi 0RE - CHR » (3 ‘> then tt- 

-1■T-T F TTfGOTÓIe30 RS “ CHR * <30)THENTT - 

)OFF 1 GO?02700 * 24 ’ THENKEY <1> OFFlKEY (2 
2950 GOTO2910 






Regel: 10 - 5B 
Regel: 20 - 0 

Regel: 30 - 0 

Regel: 40 - 0 

Regel: 50 - 215 
Regel: 60 - 6 

Regel: 70 - 245 
Regel: 80 - 100 
Regel: 90 - 183 
Regel: 100 - 81 
Regel: 110 - 146 
Regel: 120 - 247 
Regel: 130 - 3 

Regel: 140 - 94 
Regel: 150 - 7 

Regel: 160 - 54 
Regel: 170 - 9 

Regel: 180 - 34 
Regel: 190 - 0 

Regel: 200 - 0 

Regel: 210 - 0 

Regel: 220 - 45 
Regel: 230 - 44 
Regel: 240 - 76 
Regel: 250 - 139 
Regel: 260 - 167 
Regel: 270 - 91 
Regel: 280 - 59 
Regel: 290 - 238 
Regel: 300 - 123 
Regel: 310 - 95 
Regel: 320 - 115 
Regel: 330 - 0 

Regel: 340 - O 
Regel: 350 - 0 

Regel: 360 - 10 
Regel: 370 - 83 
Regel: 380 - 63 
Regel: 390 - 69 
Regel: 400 - 36 
Regel: 410 - 187 
Regel: 420 - 228 
Regel: 430 - 112 
Regel: 440 - 190 
Regel: 450 - 206 
Regel: 460 - 63 
Regel: 470 - 174 
Regel: 480 - 160 
Regel: 490 - 86 
Regel: 500 - 255 
Regel: 510 - 0 

Regel: 520 - 0 

Regel: 530 - 0 

Regel: 540 - 237 
Regel: 550 - 68 
Regel: 560 - 97 
Regel: 570 - O 
Regel: 580 - O 
Regel: 590 - O 
Regel: 600 - 104 
Regel: 610 - 59 
Regel: 620 - 233 
Regel: 630 - 33 
Regel: 640 - 174 
Regel: 650 - 45 
Regel: 660 - 120 
Regel: 670 - 75 
Regel: 680 - 51 
Regel: 690 - 233 
Regel: 700 - 97 
Regel: 710 - 33 
Regel: 720 - 176 
Regel: 730 - 18 
Regel: 740 - 174 
Regel: 750 - 200 
Regel: 760 - 71 
Regel: 770 - 59 
Regel: 780 - 165 
Regel: 790 - 142 
Regel: 800 - O 
Regel: 810 - O 
Regel: 820 - O 
Regel: 830 - 159 
Regel: 840 - 145 
Regel: 850 - 123 
Regel: 860 - 114 
Regel: 870 - 68 
Regel: 880 - 131 
Regel: 890 - 142 
Regel: 900 - O 

22 


Regel: 910 - O Re 

Regel: 920 - O Rei 

Regel: 930 - 78 Re 

Regel: 940 - 64 Rei 

Regel: 950 - 229 Re 

Regel: 960 - O Re 

Regel: 970 - O Rei 

Regel: 980 - O Rei 

Regel: 990 - 193 Re 

Regel: 1000 - 142 Rei 

Regel: 1010 - O Rei 

Regel: 1020 - O Re 

Regel: 1030 - O Re 

Regel: 1040 - 131 Re 

Regel: 1050 - 142 Re 

Regel: 1060 - O Rei 

Regel: 1070 - O Rei 

Regel: 1080 - O Rei 

Regel: 1090 - 53 Rei 

Regel: 1100 - O Rei 

Regel: 1110 - O Rei 

Regel: 1120 - O Rei 

Regel: 1130 - 127 Rei 

Regel: 1140 - 81 Rei 

Regel: 1150 - 236 Reg 

Regel: 1160 - 177 Rei 

Regel: 1170 - 44 Rei 

Regel: 1180 - 95 Rei 

Regel: 1190 - 219 Rei 

Regel: 1200 - 94 Ree 

Regel: 1210 - 111 Reg 

Regel: 1220 - 104 Reg 

Regel: 1230 - 13 Reg 

Regel: 1240 - 206 Reg 

Regel: 1250 - 134 Reg 

Regel: 1260 - 44 Reg 

Regel: 1270 - 255 Reg 

Regel: 1280 - 219 Reg 

Regel: 1290 - 184 Reg 

Regel: 1300 - 190 Reg 

Regel: 1310 - 204 Rege 

Regel: 1320 - 224 Rege 

Regel: 1330 - 56 Rege 

Regel: 1340 - 155 Rege 

Regel: 1350 - 36 Rege 

Regel: 1360 - 35 Rege 

Regel: 1370 - 226 Rege 

Regel: 1380 - 228 Rege 

Regel: 1390 - 44 Rege 

Regel: 1400 - 157 Rege 

Regel: 1410 - O Rege 

Regel: 1420 - O Rege 

Regel: 1430 - O Rege 

Regel: 1440 - 197 Rege 

Regel: 1450 - 168 Rege 

Regel: 1460 - 26 Rege 

Regel: 1470 - 247 Rege 

Regel: 1480 - 180 Rege 

Regel: 1490 - 190 Rege 

Regel: 1500 - 213 Rege 

Regel: 1510 - 172 Rege 

Regel: 1520 - 186 Rege 

Regel: 1530 - 58 Rege 

Regel: 1540 - 116 Rege 

Regel: 1550 - 47 Rege 

Regel: 1560 - 123 Rege 

Regel: 1570 - 142 Rege 

Regel: 15B0 - O Rege 

Regel: 1590 - O Rege 

Regel: 1600 - O Regel 

Regel: 1610 - 250 Regel 

Regel: 1620 - 253 Regel 

Regel: 1630 - 192 Regei 

Regel: 1640 - 147 Regel 

Regel: 1650 - 233 Regel 

Regel: 1660 - 158 Regel 

Regel: 1670 - 4 Regel 

Regel: 1680 - 8 Regel 

Regel: 1690 - 165 Regel 

Regel: 1700 - 185 Regel 

Regel: 1710 - 72 Regel 

Regel: 1720 - 11 Regel 

Regel: 1730 - 43 Regel 

Regel: 1740 - 5 Regel 

Regel: 1750 - 249 Regel 

Regel: 1760 - 57 Regel 

Regel: 1770 - 239 Regel 

Regel: 1780 - 80 Regel 

Regel: 1790 - 126 Regel 

Regel: 1800 - O Regel 


124 

O 

O 

O 


1810 - O 
1820 - O 
1830 - 140 
1840 - 35 
1850 - 210 
1860 - 33 
1870 - 129 
18B0 - 214 
1890 - 96 
1900 
1910 - 
1920 - 
1930 - 
1940 - 124 
1950 - 29 
1960 - 46 
1970 - 240 
1980 - 24 
1990 - 148 
2000 - 221 
2010 - 104 
2020 - 48 
2030 - 26 
2040 - 254 
2050 - 44 
2060 - 109 
2070 - 25 
2080 - 93 
2090 - 123 
2100 - 162 
2110 - 145 
2120 - 
2130 - 
2140 - 
2150 - 
2160 - 175 
2170 - 234 
2180 - 248 
2190 - 228 
2200 - 70 
2210 - 
2220 - 
2230 - 
2240 - 111 
2250 - 53 
2260 - 229 
2270 - 38 
2280 - 
2290 - 
2300 - 
2310- 89 
2320 - 89 
2330 - 202 
2340 - 78 
2350 - 211 
2360 - 38 
2370 - 179 
2380 - 254 
2390 - 236 
2400 - 32 
2410 - 244 


150 

O 

O 

O 


O 

O 

58 



- 0 


- 0 


- 0 


- 0 


- 192 


- 24 


- 236 

• 

- 91 


- 69 

- 

- 56 

• 

■ 116 

■ 

- 234 

■ 

• 99 

■ 

■ 90 

- 

■ 20 

- 

■ 103 

- 

■ 177 

- 

■ 154 

- 

192 

- 

104 

- 

118 

- 

154 

- 

195 

- 

46 

- 

153 

- 

217 

- 

217 

- 

251 

- 

192 


Rege 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege] 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Totaa 


2710 - 171 
2720 - 96 
2730 - 234 
2740 - 102 
2750 - 173 
2760 - 8 

2770 - 72 
2780 - 101 
2790 - 212 
2800 - 192 
2810 - 104 
2820 - 56 
2830 - 111 
2840 - 214 
2850 - 212 
2860 - 95 
2870 - 77 
2880 - 36 
2890 - 154 
2900 - 195 
2910 - 46 
2920 - 2 

2930 - 244 
2940 - 138 
2950 - O 
30351 


VASTE GEGEVENS 


VELDNAAM 


ST-FILE 


VELDLENGTE 


NAAM 

ADRES 

POSTCODE 

WOONPLAATS 
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FILOTEL 

Het Groningse softwarehuis Filosoft is 
gestart met een databank volgens het 
Viewdata- protokol: FILOTEL. 

Iedere huiscomputeraar die met Viditel 
kan communiceren, kan ook -en zonder lid- 
maatschapskosten e.d.- met Filotel kon- 
takt opnemen. 

De miniatuur-Viditel bevat 800 pagina's 
nieuws en tips voor gebruikers. Er is ook 
plaats ingeruimd voor >n prikbord, waarop 
men mededelingen voor collega-gebruikers 
kwijt kan. 

Filotel is 24 uur per dag bereikbaar 
onder het telefoonnumer: 050-145174. 

Nadere inlichtingen kunnen worden 
verstrekt door: Henk Menninga (050-13746) 
















nnsx-Basuv 

nader bekekeiij® 



VAT IS DE BIOS? 

Zoals u wel zal weten is in elke MSX 
computer een ROM geheugen van 32 K 
R0M SeEeugen maakt het 

ROM iD B f SIC te Programmeren. Het 
M geheugen is onderverdeeld in twee 

De beJrT D ^ BI0S 6r eeD Van is ' 

De betekenis van het woord BIOS is zeer 

In D het d J S H B ? SlC In P ut/0ut PUt System 
,ï het Nederlands komt dit neer op 

subroutines van de ROM”. Deze 
subroutines kunnen ook door de 
programmeur gebruikt worden. Ze kunnen 
echter niet gewijzigd worden. 

Om deze subroutines te kunnen gebruiken 
S?ze r + r et6n Waar de b eginad?essen van 

kunl^ v Ïk SS ZlJn en welk effekt ^ 
kunnen hebben in het programma! 

In dit artikei is het dan ook de 

bedoeling u deze en andere belangrijke 

dingen duidelijk te maken. 8 J 

ASSEïffiL^T 15 280 H - taal en 

S“'t£u~ ellJk “ «t 

Om het een beetje overzichtelijk te 

ouden zal ik deze subroutines in enkele 
groepen indelen. enkele 


BIOS SUBROUTIJTE’S DIE VERKEN MET DE 
JOYSTICK INTERFACE! 

Ik begin met de BIOS subroutines die de 
Wi. uitlezen. Dit „1' 

deze subroutines veel overeenkomst 

!Sp?? en “ï de BASIC instrukties 
(STRIG, STICK, PAD, PDD.Omde 
joystick-interface uit te lezen zijn er 

GTSTr^^r ttd iQes in de BIOS- Dit zijn: 
GTSTCK, GTTRIG, GTPAD en GTPDL. Om de 

subroutines GTSTCK en GTTRIG te 

gebruiken heeft men niet noodzakelijk 

cu? fi n°t S \ iCk Dodi 8 • Ze werken ook met de 
cursortoetsen en de spatie balk. 

fnf + de ® ub J outiDes GTPAD en GTPDL is een 
toetsenbord alleen echter niet 
voldoende. 



GTSTCK 

Als eerste is er de subroutine ”GTSTCK” 
dit betekent: GET STICK. 

?!?? ÏÏIS? 1 * 6 WOrdt “"geroepen met 
CALL &H00D5 en leest de stand van de 

cursorkey’ s of van een van de twee 
Joystick’s. 

De accumulator is de enige input 
parameter, en moet als inhoud 0 hebben 
als het om de cursortoetsen gaat, ofwel 
1 als het om de joystick in poort 1 

gaat, ofwel 2 als het om de joystick in 
poort twee gaat. 

Pe enige output parameter is weer de 
accumulator, en deze bevat: 

0 voor een neutrale stand 
voor omhoog 
voor omhoog en rechts 
voor rechts 

voor rechts en omlaag 
voor omlaag 
voor omlaag en links 
voor links 

voor links en omhoog 
De waarde van de registers AF, BC, DE en 
HL kunnen door het uitvoeren van deze 
subroutine in waarde veranderen,zodat 

vehrn^ te r f eD iS al de re gisters die 

k v W f rd6n ° P de stack te Pushen, 
iijdens het uitvoeren van deze 

subroutine is onderbreking mogelijk 

Een voorbeeld van het gebruik van deze 

”THE°WALL”.** SegeVen in het spelletje 
GTTRIG 

Als tweede is er de subroutine "GTTRIG” 
Dit betekent: GET STRIG. 

Deze subroutine wordt aangeroepen met 
CALL &H00D6 en dient om te kontroleren 
als de spatiebalk of een van de 

vuurknoppen op de joystick ingedrukt 
zijn, u 

De input parameter is de accumulator die 
een van de volgende waarden moet 
bevatten: 


1 

2 

3 

4 

5 

6 

7 

8 


oo 













GTPDL 


0 spatie balk 

1 vuurknop nr 1 op joystick nr 1 

2 vuurknop nr 2 op joystick nr 1 

3 vuurknop nr 1 op joystick nr 2 

4 vuurknop nr 2 op joystick nr 2 

Als output parameter zal de accumulator 
gevuld worden met 255 als de bedoelde 
knop ingedrukt is, en met 0 als deze 
niet ingedrukt is. 

De registers AF,BC,DE en HL kunnen 
veranderd zijn na het uitvoeren van deze 
subroutine en worden daarom best op de 
stack gepushd indien nodig! 
Onderbrekingen tijdens het uitvoeren van 
deze subroutine zijn mogelijk! 

GTPAD 

De derde subroutine is ''GTPAD”. Dit 
betekent GET PAD. 

Deze subroutine wordt aangeroepen met 
CALL &H00DB, en geeft de positie van de 
touch pad. 

Zoals bij de twee vorige subroutines is 
ook hier de accumulator de input 
parameter. Deze moet een waarde hebben 
tussen 0 en 7, indien de accumulator een 
waarde heeft tussen 0 en 3 gaat de 
informatie die terug komt over de touch 
pad in joystick ingang nr 1. Om 
informatie te krijgen over de touch pad 
in joystick ingang nr 2 moet de waarde 
van de accumulator tussen 4 en 7 zijn. 

Om te weten als de bedoelde touch pad is 
ingedrukt laadt men de accumulator met 0 
of 4. Om de Y coördinaat te weten te 
komen laadt men de accumulator met 2 of 
6. En om de X coördinaat te weten te 
komen laadt men de accumulator met 1 of 
5. Als men tot slot nog wil weten als de 
knop op de touch pad ingedrukt is laadt 
men de accumulator met 3 of 7. 

De output parameter is evenals de input 
parameter de accumulator. De waarde van 
de accumulator is afhankelijk van de 
waarde van de input parameter. 

Indien de input parameter 0 of 4 bevat 
wordt de accumulator met 0 gevuld als de 
touch pad ingedrukt is, met 255 als de 
touch pad niet ingedrukt i6. Het zelfde 
geldt als de input parameter met 3 of 7 
gevuld was. 

Als de input parameter gevuld is met 1 
of 5 wordt de accumulator met de X 
coördinaat. Indien de input parameter 
gevuld is met 2 of 6 wordt de 
accumulator gevuld met de Y coördinaat. 

De registers AF,BC,DE en HL kunnen 
verandert worden door het gebruik van 
deze subroutine. Deze registers worden 
daarom best (indien nodig) op de stack 
gepushd. 

Evenals bij de twee vorige subroutines 
is ook bij deze subroutine onderbreking 
mogelijk. 



Als laatste subroutine (met betrekking 
tot de joystick interface) is er 
"GTPDL''. Dit betekent GET PADDLE. 

Men kan deze subroutine aanroepen met 
CALL &H00DE . Deze subroutine dient om 
een paddel (indien die aangesloten is) 
uit te lezen. 

De accumulator wordt weer gebruikt als 
input parameter en moet met een waarde 
tussen 0 en 12 gevuld zijn. Indien de 
paddel aan joystick poort nr 1 is 
aangesloten moet de accumulator een 
oneven getal bevatten. Als de paddel 
aangesloten is aan joystick poort nr 2, 
dan moet de accumulator een even getal 
bevatten. 

Als output wordt de accumulator gevuldt 
met een getal tussen 0 en 255, 
naargelang de status van de paddel. 

De registers AF,BC,DE en HL kunnen 
veranderd zijn na uitvoering van deze 
subroutine. Zij worden daarom best op de 
stack gepushd. 

Onderbrekingen zijn mogelijk tijdens het 
uitvoeren van deze subroutine. 


BIOS SUBROUTINE' S DIE VERKEN MET DE 
PROGRAMMEERBARE SOUND GENERATOR. 

Evenals bij de subroutines die werken 
met de joystick interface vertoont ook 
de input van de subroutines die werken 
met de sound generator veel overeenkomst 
met de overeenkomende BASIC instrukties. 
Er zijn vier subroutines in de BIOS die 
werken met de sound generator. Dit zijn: 
GICINI, VRTPSG, RDPSG en STRTMS. 

Omdat bij de subroutines die werken met 
de sound generator enkele 
geheugenplaatsen van het systeem RAM 
gebruikt worden geef ik hieronder een 
lijstje van de gebruikte namen van de 
geheugenplaatsen en hun adres in 
hexadecimaal, 

MUSICF &HFB3F PLYCNT &HFB40 
VCBA &HFB41 VCBB &HFB66 
VCBC &HFB8B 

GICINI 

Deze subroutine kan aangeroepen worden 
met CALL &H0090. Deze subroutine reset 
de sound generator, zodat indien er 
muziek aan het spelen was, deze 
onmiddelijk zal stoppen. Al de sound 
registers worden dan in hun 
oorspronkelijke staat hersteld. 

Input parameters hoeven bij deze 
subroutine niet gegeven worden. Er moet 
echter wel voor gezorgd zijn dat 
onderbreking niet mogelijk is! 


sub^lSr 0,ltPUt P° ra ” ete '-= bij deze 

JiJVE 1 "*” bI1Jïen ln de *t«.t die 

21j hadden voor het aanroepen van deze 

MUSirï ti Srnr De geheu 8 e n plaatsen PLYCKT, 
MUSICF, VCBC tot VCBC+4, VCBB tot VCBB+4 

mS ™^ 4 ; 4 r deb 

MARSCHWNG!!! Ka het aanroepen van 
deze subroutlne is het best 
onderbrekingen weer mogelijk te maken. 

VBTPSG 

De subroutine "VRTPSG" kan aangeroepen 
worden met: CALL &H0093, 8 ^ 

^f^ SU ? rOUtine schri J ft een bepaalde 
waarde in een bepaald register van de 
sound generator. Deze waarde en de 
register kan men zelf naar keuze 
bepalen. 

Er moeten twee input parameters gegeven 
worden voor men deze subroutine 5 
aanroept. Dit zijn; de accumulator die 

£eL n +T er T d6 SOUDd re 8*ster wt 

mn l h register E dat de waarde 
moet bevatten die in het sound register 
moet geschreven worden. De waarde^an de 

danT3 tDr ^ 6Chter ni6t hoger 2i ^ n 
Zoalsurischien wel had verwacht zijn 
er bij deze subroutine geen output 
parameters. * 

Al de registers blijven in hun 
oorspronkelijke staat zodat daar geen 
voorzorgen moeten genomen worden. 

subr-nut!** 81 ? Van het uitvoere o van deze 
subroutine is geen onderbreking 

mogelijk. Kaar het einde toe is dit 
echter wel mogelijk. 

Jndien men meer wil weten over de 

rJgisteïsT ? 6t SchrlJven naa r de sound 

de pjo ±t ! 6nS h6t artikel over 

in het december nummer (1985) 

lejen. Dit artikel ls daar zeer 

duidelijk over. Er staat o.a. la hae „„ 

d le verschillende stemmen 

onafhankelijk van elkaar kan 

programmeren. 

RDPSG 

Als derde is er de subroutine "RDPSG" 

De subroutine n,, RDPSG” Sn^ang^oe^n' 

worden met: CALL &H0096, 8 epen 

nu^T- Paran ^ ter * De accu mulator moet het 
nummer van de gewenste sound register 
bevatten. Dat wil zeggen dat Lf getll 

daa r 3 “““” lat0r " let S«rt.r «/zijn 

Output parameter: De accumulator zal 

ff! U , WOrden met de inhoud van de 
gewenste sound register. De waarde van 


de accumulator is dus volledig 
afhankelijk van de sound register die 
geraadpleegd is! 

Het enige register dat verandert word na 
uitvoering van deze subroutine is de 
accumulator. 

In het begin van deze subroutine is geen 
onderbreking mogelijk. Kaar het eind! 
toe is onderbreking echter wel mogelilk 
Deze subroutine kan bijv. gebruikt J 
worden om te kijken als een bepaalde 
stem aanstaat. Men kan er echter nog 
veel meer mee doen. 6 

STRTMS 

Deze subroutine "STRTMS" start de 
muziek. Dit gebeurt echter alleen als 
aar eerst de nodige sound registers 
voor gevuld zijn. Indien dit niet 
gebeurt is kan er ook geen muziek (of 
welk ander geluidseffekt dan ook) 
gestart worden. 

Deze subroutine kan aangeroepen worden 
met: CALL AH0099 woraen 

Input parameters: Er moeten voor deze 
subroutine geen input parameters 
ingegeven worden. 

Output parameters: De accumulator zal 

Velg is met nUl SlS ^ S ° Und bUff6r 

De registers AF en HL kunnen veranderd 
worden na het gebruik van deze 

rni!rrT? tine ór ° 0k dS Sebeugen plaatsen 

donr C h + n PkYCNT kunnen verandert worden 
door het gebruik van deze subroutine. 

Men moet er wei rekening mee houden dat 
de muziek of geluids effekten slechts 
llen starten bij de eerstkomende 
onderbreking. 

BIOS SUBROUTIKE’S DIE VERKEK MET DE 
CASSETTE IKTERFACE! 

Voor de cassette interface zijn er in de 
BIOS zeven subroutines. Dit ziln TAPThh 

IS. T4P10F ' T4PM ' ™ « 

* Z ™ tte interface is uiteraard 
bedoeld om gegevens van en naar de 

!!n S bI e + ! e traDS P ortere “- Doch als men 
een beetje een elektonika-hobbyist is 

apparat!r r S ° 6d gelijk daar andere 
apparaten op aan te sluiten. Eventueel 

l!ng!V elfS ”° SellJk twee «SX computers 
ffo! S2e Weg te verbinden. P 

De BIOS subroutines die werken met de 
cassette interface kan men o.a. zeer 

Se/ e Dn‘uLr 9e ° laSdt te 

v 1 dt P ro 8 ram ma kan daarna 
goed gebruikt worden om uw zelfgemaakte 
programmas te beveili gen 1Igenaa ^e 



Voor men deze subroutines gaat gebruiken 
is bet veilig dat men eerst een leeg 
cassettebandje in de cassette recorder 
stopt. Anders loopt men mischien bet 
risico een of ander eerder opgenomen 
programma te overscbrijven! 

TAPIOS 

De subroutine "TAPION” is aan te roepen 
met: CALL &H00E1 

Deze subroutine leest de kop van bet 
cassettebandje nadat de motor is 
aangezet. 

Input parameters: Bij deze subroutine is 
natuurlijk geen input parameter. 

Output parameter: Output parameters zijn 
er ook al niet. Enkel wanneer de 
operatie mislukt is zal de carry flag 
gezet worden. 

De inboud van de registers AF, BC, DE en 
HL kunnen door bet uitvoeren van deze 
subroutine verandert worden. Daarom is 
bet aan te raden deze registers op de 
stack te pusben voor men deze subroutine 
aanroept. 

Onderbrekingen tijdens bet uitvoeren van 
deze subroutine zijn niet mogelijk. 

TAP IS 

Als tweede subroutine is er ”TAPIH”. 

Deze subroutine kan aangeroepen worden 
met: CALL &H00E4 
Dit is een zeer goed bruikbare 
subroutine. Hij leest namelijk een byte 
van het cassettebandje. 

Input parameters: Net zoals bij de 
vorige subroutine is ook bier geen input 
parameter vereist. 

Output parameters: De accumulator zal na 
bet korrekt uitvoeren van deze 
subroutine de gelezen byte als inboud 
hebben. Indien bet uitvoeren van deze 
subroutine door een of andere reden niet 
gelukt is zal de carry flag gezet 
worden. 

De registers AF, BC, DE en HL kunnen 
door het uitvoeren van deze subroutine 
veranderen in waarde. Het is dus aan te 
raden deze registers op de stack te 
pusben. 

Evenals bij de vorige subroutine is ook 
bij deze subroutine geen onderbreking 
mogelijk. 

TAPIOF 

De subroutine ”TAPIOF” is een zeer 
eenvoudig te gebruiken subroutine. Het 
enige effekt dat deze subroutine beeft, 
is dat bet lezen van het cassettebandje 
gestopt wordt. 

Deze subroutine kan aangeroepen worden 
met: CALL &H00E7 


Input parameters: Bij deze subroutine 
zijn er geen input parameters. 

Output parameters: Output parameters 
zijn er evenmin als input parameters. 
Geen enkel register of gebeugenplaats 
wordt door deze subroutine veranderd van 
waarde. 

TAPOON 

De subroutine "TAPOON” kan aangeroepen 
worden met: CALL &H00EA 
Nadat de cassettemotor aangezet is 
schrijft deze subroutine een kop naar 
het cassettebandje. Dit kan naar keuze 
een lange of een korte kop zijn. 

Input parameter: De accumulator moet met 
een getal groter dan 0 gevuld zijn als 
men een lange kop verkiest. Indien men 
een korte kop verkiest moet de 
accumulator met 0 gevuld worden. 

Output parameters: Bij deze subroutine 
worden geen output parameters gegeven. 
Indien bet uitvoeren van deze subroutine 
echter door een of andere reden niet 
gelukt zou zijn wordt de carry fla* 
gezet. ° 

De inhoud van de registers AF, BC, DE en 
HL kunnen door bet uitvoeren van deze 
subroutine veranderd worden in waarde. 
Daarom is bet aan te raden deze register 
op de stack te pushen. 

Onderbreking zijn tijdens deze 
subroutine mogelijk. 

TAPOUT 

De subroutine "TAPOUT” is juist het 
tegenovergestelde van de subroutine 
"TAPIN”. Deze subroutine schrijft een 
byte naar bet cassette bandje. 

Men roept deze subroutine aan met: CALL 
&H00ED 

Input parameter: De accumulator moet 
gevuld zijn met de byte die naar bet 
cassettebandje moet geschreven worden. 
Output parameters: Zoals u wel verwacht, 
wordt bij deze subroutine geen output 
parameter gegeven. Indien bet uitvoeren 
van deze subroutine door een of andere 
reden niet zou gelukt zijn wordt de 
carry flag gezet. 

De registers AF, BC, DE en HL kunnen na 
het gebruik van. deze subroutine in 
waarde verandert zijn. Deze registers 
kan men daarom best op de stack pushen. 

Dit hoeft echter niet als deze registers 
niet gebruikt worden. 

Onderbrekingen zijn bij deze subroutine 
mogelijk. 
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TAPOOF 

De subroutine ”TAPnnï?” i.„ 

«orden met; CALL «SeFe a ""Seroepen 

K £&£ „tr ir UtlM dMt 

stoppen. het casse ttebandje 

<«£ E“ege r ven°b1rd pars “ t -« 
Geen en tel raster 

van *af?de. V *Zo£rdaaf r °“ tlM ver< ‘” der ' 1 
«ost gehouden «orden. gee ” reisnin 8 

STMOTfi 

als de r instruktfe M MOTÖR d °Dat h is 

diegene dia hh 4 1® (voor 

de cassette recorde'r a^tf uitben™” 
Input parameterc- n« 1X zetten * 

£=&*&-- - - - 

accumulator op A e zet i Ddlen de 

cassettemotor^aangezet tor ?^ 

laatste mogeliivjffj 7 w ° r ^ en - En de 

™> Is cassettemotor i 

worden door de accun.ni«+ t * S edaan 
zetten, Ket Z??ï?° r ° P 255 te 
dht de motor MngêzJt ” rdf*, ‘ ><Sd ° eld 
stond en afgezet^ald dt alS hlJ af 
Alleen Haa S 7 x ls hlJ aanstond. 

gebruiken r ' 8I ? ter » tam na het 

fijn a " dS2e ShOroutlne veranderd 

sUclZ *?££?„“ Routines mijn 
aantal subroeUn‘eV«e iTdellSf” 1 ' 

bespreken. ï ° lset,d ‘ ,rtlltel «1 eens 


martin buysse 



Tekens en sprites definiëren 
in Hexcode 
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Zie voor listing 
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op 


gewerkt hebben kennen P f- eei \ — 199 ^ 4A 
snelle, makkeliike natuurlijk de 

manier van deze rem f n ove rzichtelijke 

(her)deflnleren. C ° mP Met f °”„ tshens J t « 

routine is het moeeli-i£ a ond erstaande 
op de MSX toe g te J n a« eZS methode ook 
misschien nog wel leuker” - 6n ’ wat 

van h °sprites° k fo^ ™ ^ ^ 
methode niet kennen voïgTüiïr 2£ koS 

ïljen n va^ a eÏk r acht a ï ae beS r^ t Uit twee 

nit 4 vakjes bestaan)? word^een^f 
ontworpen, (fig. 1). figuur 

vlakjes U in V de r tabeï e h *;° mbinati e Van 4 

zoeken en deze code-i-ot* code ~teken te 
-achter elkaar- te ? ek ® ns ° P vol ê°rde 
hdx. code ™ r 16 ‘^TM? taat *“ 






















































Nu zetten we deze code in de variabele 
H$ en de ASCII code van het te 
definiëren teken -of het nummer van de 
spnte- in de variabele AS. 

Voila, de computer doet de rest. 

Laten we fig. 2 als voorbeeld nemen. De 
regel: 

H$="42241824FF182400":AS=65:GOSUB .... 


verandert de hoofdletter 'A' 
'space-invader'. De regel: 

H$="42241824FF182400":AS=5 :G0SUB 


in een 


doet hetzelfde met sprite 5. 

De routine herkent alle waardes voor AS 
lager dan 30 als sprites. De routine 

3CRFRM? lle f n ii in SCREEN1 5 de opdracht 
oCKEENl zet alle patronen weer in de 
oude stand. 

Wanneer het nodig is om tekens onder de 
JU te definiëren dan dient voor B de 
waarde 7 ingevuld te worden en naar de 
tweede regel van de routine gesprongen 
te worden (GOSUB...+10). 

c^o C .fx1 bru ^ k f n van deze routine in andere 
SCREEN mode s gaat op dezelfde manier en 
voor B dienen dan de volgende waardes 
ingevuld te worden: 

codpIS 9 ~ B= ^/ (alleen tekens) 

SCREEN 2 — B-14 (alleen sprites) 

SCREEN 3 - B=17 (voor tekens) 

SCREEN 3 - B=19 (voor sprites) 

Om te voorkomen dat telkens, als het 
spnteformaat wordt gewijzigd, alles 
opnieuw gedefinieerd moet worden (SCREEN 
zet alles terug in de 'default' stand) 

s P rite f°rmaat bepaald met de 
VDP(X) opdracht. 


Formaat 1 VDP(l) 
Formaat 2 VDP(l) 
Formaat 3 VDP(l) 
Formaat 4 VDP(l) 

C.C.R. Poirot. 
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225 
= 226 
= 227 
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DEF FN = DEFINIEER FUNCTIE 

Men kan met MSX-basic subroutines 
aanroepen om een bepaalde functie meerdere 
malen te gebruiken. Bijvoorbeeld met GOSUB 

RETURN daas ^ aat OP regel 100 A=SQR(B): 
RETURN. Zoiets als dit komt in elk goed 
programma wel voor. Als U heeft opgelet 
hebben zien staan IF A$<>"J" 
AND A$<> j THEN GOTO ... enz. En dat dus 
meerdere malen in een programma. Lezers, 
dat kan beter. Telkens als er een 
combinatie van BASIC-opdrachten achter 
elkaar in een programma voorkomt, ook al 
is het maar twee keer dan, maken wij daar 
i verv °lg een subroutine van die door 
middel van GOSUB wordt aangeroepen* Dit 
spaart kostbare geheugenruimte. Men kan in 
plaats van GOSUB, in bepaalde gevallen 
ook nog iets anders gebruiken; nl. DEF FN. 
Het gebruik van DEF FNxx en de daarbij 


behorende FNxx is niet zo makkelijk als 
GOSUB 100. Eerst het voorbeeld. Aan het 
begin van het programma, na de regel 
waarin de CLEAR, DIM en DEFINT opdrachten 
staan, komt de regel waarin U de functie 
definieert. 


LEFT$ (A$, (INSTR 


20 DEF FN HAP$ (A$) = 

(A$, CHR$(47) ) -1)) 

30 DEF FN KAP$ (A$) = RIGHT$ (A$, (LEN(A$) 
- (INSTR (A$,CHR$(47) )))) ’ 


50 A$="BOER/ER/LIGT/EEN/KIP/IN/'T/WATER” 
60 PRINT A$ 

70 B$=(FN HAP$(A$)): A$=(FN KAP$(A$)) 

80 PRINT B$: PRINT: PRINT A$ 

90 B$=(FN HAP$(A$)): A$=(FN KAP$(A$)) 

95 PRINT B$: PRINT: PRINT A$ * 

Zo dat was een hele HAP. In regel 20 is A$ 
een zogenaamde DUMMY; d.w.z. er wordt 
niets mee gedaan! Pas als de functie wordt 
aangeroepen krijgt deze betekenis. De 
u ^^- e 8* CHR$(47) is het schuine streepje 
en met INSTR wordt gekeken of deze in de 
string aanwezig is. Als deze aanwezig is 
h^ijgt INSTR de waarde van de positie van 
het gezochte teken in de string en ten- 
slotte wordt met LEFT$ een stuk van A$ 
gecopieerd in de DUMMY A$. In regel 70 
wordt de functie aangeroepen en de waarde 
van de DUMMY wordt in B$ gezet. In regel 
30 gebeurt ook zo iets; echter helemaal 
anders* In deze functie wordt weer gezocht 
naar het schuine streepje, maar hier wordt 
het resterende deel -RIGHT$ dus- van de 
string in de DUMMY A$ gezet. En in regel 
0 wordt dit gedeelte van A$ benoemd tot 
A$. En als U opgelet heeft ziet U dat ik 
e functies twee keer heb aangeroepen, 
eigenlijk had ik er dus een subroutine van 
moeten maken maar dit voorbeeld is op 
zich al ingewikkeld genoeg omdat er nogal 
wat dingen direct op elkaar inwerken. 

Dit voorbeeld gaat uit van het werken met 
stnngs maar er mogen ook rekenkundige 
bewerkingen mee worden gedaan. 

110 DEF FN PEERTJES (X)=X*3/3.5 

130 Y=FN PEERTJES (12) 

140 PRINT Y 

150 Z=FN PEERTJES (FN PEERTJES (12) ) 

160 PRINT Z 

De door U gedefinieerde functie mag elke 
naam hebben maar kijk uit voor de 
BASIC-keywords, die U niet raag gebruiken 
en let ook op dat elke naam maar een keer 
een functie met dezelfde naam definieerd 
FN HANGMAT is dus hetzelfde als FN 

omdat er alleen op de eerste twee letters 
wordt gelet! 

Ik raad U aan deze mogelijkheid met bijde 
handen aan te pakken, er wordt ruimte en 
dus tijd bespaard, de programma's ogen een 
flink stuk professioneler en het wordt 
overzichtelijker! Een GOSUB 100 vertelt 
mij alleen wat er gebeurt als ik in dat 
stuk van het programma ga kijken of als ik 
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dat nog onthouden heb, maar een FN APPELS 
vertelt mij dat daar ter plaatse even iets 

ADT>ffï 0 1 r< * w ? r< * t wat de programmeur de 
APPEL$-functie heeft genoemd. 

ON STOP GOSUB 

Elk programma dat met de MSX computer 
wordt uitgevoerd zal waarschijnlijk ook 
wel eens worden gestopt. Bij spelletjes 
is er niets van belang wat aan 
informatie verloren kan gaan, de 
puntentelling kan op een papiertje 
worden geschreven, en morgen begint men 
weer bij het eerste speelveld, met nul 
punten! Anders is het met een adressen¬ 
bestand. Het komt vaak voor dat, als de 
gebruiker wil stoppen, dit alleen kan 
via het menu. Dan kan, vanuit het 
programma, de gebruiker er nog eens op 
worden gewezen dat de gegevens nog in 
het geheugen staan en nog niet op DISK 
of Cassette. Het wordt ernstiger als de 
gebruiker botweg de "RESET" knop 
indrukt, en de MSX zich keurig meldt met 
-Ok ! ( De meeste MSX computers hebben 
geen reset zoals andere computers, maar 
een CTRL-STOP ) De gegevens staan dan 
nog in het geheugen maar om de gevens 
naar DISK over te hevelen moet het 
programma lopen, en als het programma 
gestopt is en door middel van RUN weer 
gestart is wordt meestal eerst de 
geheugenruimte voor de variabelen 
"schoon" gemaakt. Die oude gegevens zijn 
dan weg! U ziet, het argeloos indrukken 
van CTRL-STOP kan verlies betekenen van 
belangrijke gegevens en/of berekeningen. 

Maar de MSX is zo doordacht opgezet dat 
zelfs hier weer mogelijkheden liggen om 
te ondernemen. De programmeur kan op 
zeer eenvoudige wijze voorkomen dat de 
computer reageert op het indrukken van 
de CTRL-STOP en wel zodanig dat de 
computer in een speciaal daarvoor 
gemaakt gedeelte van het programma 
terecht komt. Sommige spelletjes zijn 
met zoiets uitgerust om te 
voorkomen dat de gebruiker weer controle 
over de computer kan gaan uitoefenen en 
zodoende een bandcopy van het spel zou 
kunnen maken. 

De tekst die U nu leest is geschreven 
middels een MSX computer en als ik deze 
tekst op band wil wegschrijven dan druk 
ik op de CTRL-STOP en zie voor mij een 
keuze menu. Ook U kunt dit in Uw 
programma verwerken. Een eenvoudig 
voorbeeld: 


20 ON STOP GOSUB 1000 

40 PRINT "CTRL + STOP 
INDRUKKEN "; 

50 BEEP: GOTO 40 


TEGELIJK 


1000 REM SUBR0UTINE CTRL-STOP 

1010 PRINT: PRINT " EVEN EEN MOMENT 

STILTE" 

1020 A$=INKEY$: IF A$=CHR$(32) THEN 
RETURN ELSE IF A$=CHR$(3) THEN END 
1030 GOTO 1020 


RUN dit en zie dat het niet werkt! 
Eerst moet dit statement worden 
geactiveerd. 

30 STOP ON 

RUN dit opnieuw en merk, dat als nu op 
de CTRL en tegelijk op de STOP toets 
wordt gedrukt, de herrie ophoudt. Het 
zou kunnen zijn dat alleen in een 
bepaald gedeelte van het programma dit 
soort maatregelen nodig zijn; dan zou 
voor dat gedeelte een STOP ON kunnen 
worden gegeven en na dat gedeelte, als 
het niet meer van belang is, een STOP 
0FF . Er is ook nog een mogelijkheid om 
niet meteen de subroutine uit te voeren 
als op de knoppen wordt gedrukt maar 
slechts als een bepaald gedeelte van het 
programma is doorlopen. 

20 ON STOP GOSUB 1000 
30 STOP ON 

40 F0R A=1 T0 100: PRINT "CTRL + 

STOP TEGELIJK INDRUKKEN ": BEEP: 

PRINT A: NEXT A 
50 STOP OFF 

60 F0R A= 1 TO 100: PRINT "NU WORDT 
ER GEEN SUBROUTINE AAN GEROEPEN": 

PRINT A: NEXT A 

70 STOP ON: STOP STOP 

80 F0R A=1 T0 100: PRINT"DRUK METEEN 

ALS U DIT ZIET OP CTRL-STOP: PRINT 

A: NEXT A: STOP ON 

90 CLS: GOTO 30 

1000 REM SUBROUTINE CTRL-STOP 
1010 PRINT: PRINT " U HEEFT OP 
CTRL-STOP GEDRUKT !" 

1020 A$=INKEY$: IF A$=CHR$(32) THEN 
RETURN ELSE IF A$=CHR$(3) THEN END 
1030 GOTO 1020 

RUN het hierbovenstaande en merk het 
verschil op tussen STOP STOP, STOP ON en 
STOP OFF. Als U ook de beschrijving 
leest van het statement ON INTERVAL=xx 
GOSUB dan zult U verwachten dat in de 
subroutine zelf een STOP STOP en aan het 
eind van de subvroutine en voor RETURN 
een STOP ON zou behoren te staan. Dit is 
wonderwel niet nodig, als de computer in 
de "STOP GOSUB"- routine zit dan is het 
niet nog eens mogelijk om ook uit dit 
stuk van het programma te springen. Het 
programma zou dan weer bij het begin van 
de routine moeten beginnen waar deze net 
aan is begonnen! Dit is door de 
ontwerpers van de BASIC van de MSX al 
onderkend, en er is rekening mee 
gehouden. 

Samenvatting: 

met ON STOP GOSUB kan een programma 
tegen het indrukken van de CTRL-STOP 
worden beveiligd. Zorg er voor dat het 
programma ook vanuit de subroutine te 
stoppen is. Bijvoorbeeld d.m.v. een 
code. In regel 1020 wordt gewacht op de 
spatie, maar als CTRL-C wordt ingedrukt 
wordt er alsnog gestopt. Is er geen 
mogelijkheid om te stoppen dan biedt de 
RESET knop uitkomst, maar dan zijn de 
gegevens wel weg! De routine kan niet 
worden aangeroepen met de RESET-knop. 
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Even terug naar GIDS nr.3 en nr.2 


GOLD DIGGER 

Wie Gold digger voor de tweede keer 
speelt wordt in ronde 4 geconfronteerd 
met een sprite uit veld 5 die op een 
onmogelijke plaats verschijnt. Deze is 
weg te krijgen door de volgende regel in 
het programma op te nemen: 

4455 PUT SPRITE 8,(0,209) 

Dit is echter niet de juiste oplossing 
daar we nog niet weten waarom deze 
sprite in deze ronde verschijnt. 

Wie geeft ons de oplossing van dit 
vraagstuk? 


Een lezer belde ons op met het verhaal, 
dat hij en zesde veld had bijgemaakt en 
daar plaatseljk een andere kleur dan 
kleur 12 had gebruikt. Lopen op deze 
kleuren kan wel; springen echter niet. 
Dit maakt het spel extra moeilijk, 
vooral als voor deze kleur b.v. kleur 2 
wordt . gebruikt. Er is nauwelijks 
verschil te zien tussen de kleuren 12 en 
2, maar je krijgt zo wel leuke 'zwakke 
plekken' in het veld. 

STUNTVOGEL 


STUNTVOGEL VELD 7 


Dit veld, van H.Sraeenge, is gedeeltelijk 
opgezet met onderkasten (kleine letters) 
waardoor de L en de 1 er hetzelfde 
uitzien. In regel 10180 moeten de 
getallen 513,714 en 713 vervangen worden 
door 5L3.7L4 en 7L3. Ditzelfde moet 
gebeuren in regel 10290. In regel 10250 
moet het getal 3110 vervangen worden 
door 3L10. Sorry! Dit ligt niet aan de 
maker van het progamma, maar aan het ge- 
^ ette ^type. Bij deze letter- 
schijf zijn de 1 en de 1 exact gelijk. 
Dit komt erg vaak voor bij een heleboel 
printers en het is derhalve aan te raden 

HOOFDLETERS tTgeb 

TEKENPROGRAMMA 

TEKENPROGRAMMA NAAR DISK 


Om het_tekenprogramma geschikt te maken 
voor diskdrive dienen de volgende regels 
veranderd te worden: 


20 CLEAR 300,41000:DEFINT A-Z 

85 DEF USR 0=41001:DEF USR 1=41021 

86 F0R I#=41001 T0 41013 
88 F0R I#=41021 TO 41033 
92 DATA 11,8F,A3 

95 DATA 21,8F,A3 

4050 Y$="A:"+LEFT$(X$,6) 

4100 BSAVE Y$,&HA38F,&HDB8F 
5050 Y$= "A: ’’+LEFT$ (X$, 6 ) 


Uiteraard kan dan nog het aantal letters 
naar 8 worden uitgebreid; mag wel, hoeft 
niet. 

Om een tekening met de 'S'-optie direkt 
naar het scherm te BLOADen, dient een 
BSAVE vanuit het tekenscherm opgenoraen 
te worden, die direkt het videogeheugen 
naar cassette/diskette zet. Wel even 
puzzelen, maar wel erg makkelijk om 
plaatjes direkt op het scherm te 
krijgen, zonder hiervoor het RAM- 
geheugen te belasten. Vooral voor disk- 
gebruikers is deze oplossing erg snel en 
aantrekkelijk. 

Hiervoor dient een extra 'toetsaftas- 
ting' geschreven te worden plus een 
BSAVE- opdracht (met de S-optie). Vanuit 
elk willekeurig programma kunnen nu deze 
plaatjes ingelezen worden met een BLOAD 
(ook weer met S-optie), mits ook hier 
weer het programma, op dat moment, in de 
juiste SCREEN-mode staat. 

MASTERMIND 


AANVULLING MASTERMIND 

Van Pierre Parisis is hier een 
aanvulling op het programma 'Masterraind' 
uit Gids nr.2 

Wanneer de combinatie niet wordt 
gevonden krijgt de speler deze ook nooit 
te zien. De volgende routine brengt 
daarin verandering. 

1045 G0SUB 1500 

1060 I$=INKEY$:IF I$="J" THEN 1075 
1075 GOSUB 1600 

1500 DRAWBM137,107 ":?#1, "MIJN KEUZE:" 
1505 REM TEKEN COMPUTERS KEUZE 

120) c(1) LE(140 ’ 120),3,C(1):PAINT(140 * 

120) c(2) LE(153,120),3 ’ C(2):PAINT(153 » 

120) ^3) LE(166,120) » 3 » C(3 ) :PAINT ( 1 66, 

120) c(4) LE(l79 ’ 120) * 3 » C ( 4 ) :PAINT (179, 

1550 ^RETURN 

1600 REM WIS COMPUTERS KEUZE 

120) c(0) LE(140 ’ 120) ’ 3,C(0):PAINT(14 °’ 

120) c(0) LE< ‘ 153,120),3 ’ C(0):PAINT(153 ’ 

120) c(0) LE(166,120),3 ’ C ^ 0 ^ :PAINT(166 » 

120) C(0) LE< ' 179,120),3,C(0):PAINT(179, 
1650 *RETURN 


BEN JÈ NOG OP ZOEK NAAR OUDE NUMMERS VAN 
DE USX GIDS? NEEM DAN EVEN K0NTAKT OP MET 
DE UITGEVERIJ: TEL. 020-327464 


30 







hoort bij pag.28/29 

Beeldscherm: WIDTH 36 

20 Pnr 2 ?p è ? 1 ' i * Èè^ÊN i; 1 • CLS 
30 gSsSb 140 ’ RINT " A A « 

40 PUT SPRITE 1,(124 90 ) 1 =: 

50 H*="42241B24FFli2405"’ 

60 AS= 65 :B 0 SUB 1000 

Z ® AS= 5 :B 0 SUB 1000 

80 FOR I 1 = 1 TD 10 

90 VDP( 1)=224 

100 BOSUB 140 

110 VDP(1)=225 

120 NEXTI 1 :BOTO 10 

140 FOR 1=1 TO 50 :NEXT I:RETURN 

999 *ROUTINE 

1000 IF AS< 30 THEN B =9 ELBF R -7 

CS=BASE(B) + AS*I:X=1 SE B ~ 7 

1020 FOR 0=0 TO 7 

1030 0 $="&H"+MID$(H$ X 7 ) 

}%i£ ï p OKE(CS+Q > ,VAL<0*? 

1050 X=X+ 2 :NEXT O:RETURN 

ON INTERVAL GOSUB 


ON INTERVAL GOSUB 

Met ON INTERVAL kan elke keer dat een 
bepaald aantal 1/50 secondes *£ 
verstreken een subroutine worden 

£an g wT\ Het gebruik is eenvoudig” 
aan het begin van het programma 

CLEAR, DIM, DEFINT A-Z plfatst ’ü ^e 


30 gg M INTERVAL=1 ° * 50 GOSUB 1000 

G0T0 R 30 T ' mT PR0GRAMMA LOOPT 

1000 CLS: PRINT "TIEN SECONDEN ZIJN 
VOORBIJ”: BEEP: RETURN 


RUN dit en zie dat er nog niets gebeurt' 
We hebben de computer opdracht gegeven 
om telkens als deze 500 mail 8 de 
interupt-puls heeft geteld, een 
interval puls" te maken. En met deze 
puls doet de computer nog niets omdat 
verlangt wordt. Om ook 
erkelijk de routine uit te voeren moet 
dat worden opgedragen: 


30 IF INKEY$=CHR$(24) THENIF 
SELECT=1 THEN SELECT-0 ELSE SELECT-1 
ELSE GOTO 40 

40 IF SELECT=1 THEN INTERVAL ON ELSE 
INTERVAL OFF 

®tukje programma kunnen wij, met 
de SELECT-toets, de INTERVAL- routine 
zowe l In als uit schakelen. U ziet in 
regel 20 niet het getal 500 staan (dat 
zijn de interupt- pulsen die geteld 


moeten worden voordat opnieuw de 

10^°50 ln H ?°° r ~ ma 8 w °rden) maar 

l* 5 ; ? et g6tal 50 staat voor de 
interupt-frequentie en deze kan voor 

sommige computers best wel eens 60 Hz 

de J lichrnaf Pa e 60 de Vereni 8 d e Staten is 
de Iichtnet- frequentie 60 Hz en voor 

die landen worden dan ook andere 

computers gemaakt; en voor het tulntll 

mensen in de rest van de wereld dat zo'n 

ÏÏKÏÏÏÏ- in** fn™ hGt volgende: ON 
1N1ERUPT— 10 * 60 GOSUB 1000. Als U zo'n 

computer heeft kan het voorkomen da? 

deze uit de pas gaat lopen en voor BASIC 
toepessingen kunt jj ' t getal delen 

«eldt V !^ en ’ 8Vuld 1 i f en met 60. Helaas 

ïntppuat 1 C dan alleen voor de ON 
INTERVAL, en niet vnnr a ii ö j 

TIMING gevoellige functies. S 

Er kan ook meer dan een routine worden 
opgeroepen na het verstrijken van ï 

™vfr eS n£ lde tljd * Echter is e? Lar^ 
INTERVAL ON en INTERVAL OFF. Er is ook 

nog een mogelijkheid om tijdelijk WEL te 

NIET e in’? a rI V °° r dat raoment da routine 

STOÏ n V a 6r !" 6n dat is INTERVAL 
STOP. Dan wordt direct na het INTERVAL 

ON commando, en als het de tijd daarvoor 

aan s £ br ? ut:Lne uitgevoerd. Ook moet 
aan het begin van de subroutine staan 

SFiMSo-Kr het „ •*>-*£«S 

un. Kegel 1000- behoort dus te wezen: 

1000 REM SUBROUTINE 

1010 INTERVAL STOP 

1020 CLS: PRINT "10 SECONDEN" 

1030 INTERVAL ON: RETURN 

IN regel 1010 staat INTERVAL STOP maar 

t ^ 6ft a nlet! Als het wordt 

znHa e J d W ^ rdt het toch beschouwd als 

STOP /OFF !Ü a ag 6Cbter Wel een !NTERVAL 
10^0 af F • w ° rden geplaatst. Ook hoeft in 
1030 de interval niet aangeschakeld te 

worden maar als aan het einde van de 
subroutine een INTERVAL OFF staat als 

Jf? voo 5 waarde niet voldaan zou 

zijn, dan wordt daar weer wel op gelet! 

hocni> bet a w ? rdt weggelaten wordt het 
beschouwd als een INTERVAL ON, echter 

alleen als in de subroutine niet staat 
INTERVAL STOP/OFF. t 

rn^rm ns ?® 0N ERR0R GOSUB is on INTERVAL 

gewacht fnrdf? toa P aSSing ’ ^ wordt 
gewacht totdat de computer i s 

teruggekeerd in het normale gedeelte van 
het programma. 

ON INTERVAL- sec. * freq. GOSUB is een 
bijzonder handig hulpmiddel om op 
bepaalde tijden, ongeacht welk deel van 
het programma wordt uitgevoerd, een 
subroutine uit te voeren, denk hierbij 
aan puntentelling elke 5 sec. opnieuw 
boven in beeld of het tonen van de tijd 

ïffïf ng mer \ al met een be Paald programma 
heeft gewerkt. Het is niet mog^lijk om 

met deze mogelijkheid te werken tijdens 
het invoeren van programma's of J het 
laden en wegschrijven of als het 
programma in een ERROR-routine zit 






MACHINETAAL OP DE MSX 


DEEL 2: 
COMPUTER. 


EEN KIJKJE IN HET BREIN VAN UW 


Misschien weet u nog dat vorige keer de 
term microprocessor 1 * is gevallen. De 
microprocessor is een chip die het re¬ 
kenorgaan van uw computer bevat en te— 
vens alle geheugenbewerkingen verzorgt. 
Behalve dat de microprocessor uitwendig 
geheugen kan besturen, heeft de micro¬ 
processor ook de beschikking over inwen— 

geheugenplaatsen, registers ge¬ 
naamd . ö 

w anneer u een machinetaalprogramma 
schrijft, programmeert u de microproces- 
sor. In ons geval -op een MSX-machine- 
is dat de Z80 microprocessor. Dit is een 
zeer fijn te programmeren microprocessor 
omdat de Z80 een zeer uitgebreide in¬ 
structieset heeft. De voordelen daarvan 
heeft u bij het BASIC programmeren wel 
gemerkt. Laten we de Z80, die we straks 
gaan programmeren, eens wat nader beki i- 
ken. J 
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In figuur 1 ziet u schematisch de regis¬ 
ters van de Z80 weergegeven. De regis¬ 
ters A,F,B,C,D,E,H en L zijn twee keer 
aanwezig. Het is mogelijk binnen een 
programma naar de tweede set registers 
over te schakelen, maar in het algemeen 
wordt van de mogelijkheid niet veel 
gebruik gemaakt. We zullen nu elk regis¬ 
ter de revue laten passeren. 

- De accumulator (A) en het flag-regis- 
ter (F) 

De accumulator (accu) is het rekenregis¬ 
ter van de Z80. Alle berekeningen worden 
in dit register uitgevoerd. Berekeningen 
die in de accumulator kunnen worden 
uitgevoerd zijn: 

- binaire optellingen 

- binair aftrekken 

- schuiven (alle bits 1 plaats naar 
links/rechts 

- roteren (als schuiven, maar nu vervalt 
het meest rechtse bit niet, maar komt 
op de meest linkse plaats terug) 

- logische bewerkingen (hier komen we 
later op terug) 


Steeds wordt de bewerking uitgevoerd met 
de inhoud van de accu, het resultaat 

ïfïïj* u 6e r in accu teru 88 e Plaatst. In 
BASIC heeft zo n bewerking de gedaante A 
=A+BofA=A-C. 


De bits in het flag-register worden na 
iedere bewerking in de accu veranderd 
naar gelang het resultaat van die bewer¬ 
king. Een vlag, die van "0" naar ”1" is 
veranderd, is "ge-set", de omgekeerde 
bewerking wordt het "reset-ten" van een 
vlag genoemd. Vlaggen worden in machine¬ 
taal toegepast, waar in BASIC if-then 
constructies worden gebruikt. 


FIGUUR 2: HET FLAG-REGISTER 
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Twee vlaggen zijn op dit moment voor ons 
van belang: 

Z: zero flag (nul vlag) de zero-flag 
wordt geset als de inhoud van de accu 
na een rekenkundige bewerking nul 
geworden is. 

C: carry-flag deze vlag wordt geset als 
de accu door een rekenkundige bewer¬ 
king een sprong van 0 naar 255 (of 
255 naar 0) heeft gemaakt. 

- De registers B,C,D,E,H en L 

Dit zijn de registers voor algemeen 
gebruik. Los gebruikt zijn het 8 bits 
registers. Het is echter ook mogelijk 
twee registers samen te nemen tot een 
16-bits register (BC, DE, HL) 
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FIGUUR 2: HET FLAG-REGISTER 

Twee vlaggen zijn op dit moment voor ons 
van belang: 

Z: zero flag (nul vlag) de zero-flag 
geset als de Inhoud van de accu 
na een rekenkundige bewerking nul 
geworden is. 

C: carry-flag deze vlag wordt geset als 
de accu door een rekenkundige bewer— 
king een sprong van 0 naar 255 (of 
255 naar 0) heeft gemaakt. 

- De registers B,C,D,E,H en L 

Dit zijn de registers voor algemeen 
gebruik. Los gebruikt zijn het 8 bits 
registers. Het is echter ook mogelijk 
twee registers samen te nemen tot een 
16-bits register (BC, DE, HL) 


32 















































“ De programcounter (PC) 


ffL maChin ^ aalprogramraa bestaat uit een 
geheugengebied dat gevuld is «f? 
getallen van 0 tot FF. et 

f?LT hi ? etaalin ? tructie neemt 1 tot 4 

geheugenplaatsen in beslag. De Droeram- 
counter bevat steeds het 8 g.EuS£5" 

an de volgende instructie die moet 
worden uitgevoerd. raoet 

De stackpointer (SP) 

Een stack is een metalen pin voor od het 
iireau waarop memo's, nota's e.d. kun- 
nen worden geprikt. Het briefje, dat je 
er het laatste opprikte, moet er ook 
tobeer a s eerste af. De computer bewaart 
jn gegevens op eenzelfde manier. Alle 
gegevens bevinden zich op geheugenplaat? 
sen viak na elkaar. E e ë stafkpointer 

informatf ar a • h6 u ê e heugenadres ïan de 
iorden? 6 16 6t 6erst we gg eha ald moet 

De indexregisters IX en IY 

!fx,. l fCÏ lt8 re ëisters worden meestal 
g “ 0m ! 6n Seheugenadres aan te 
ijzen waar data naar toe moet worden 
geschreven of van gelezen. 

nfet^afbeïanl/ 6818 '" 8 2lJn ï0 ° rl °PiS 

- Het interrupt register (I) 

Het refresh register (R) 

MachiMtaalinstnieUes bestaan uit 

elkaar in^oJ^x Van ° t0t FF ’ die aa 
De mw geheugengebied staan. 

voert Je P h^x S x° r ] eest deze codes en 
Bii her d bijbehorende instructies uit. 
het programmeren maken machinetaal- 

fInfen mme di rS , ge ï ru , lk V3n Engels « Stor¬ 
tingen, die de funktie van de verschil- 

tinfen C ° de a duidell J k “aken. Deze afkor¬ 
tingen worden mnemonics genoemd. 


spring naar een 
(laad) 


een 


Vb.JP komt van JUMP: 

geheugenadres. 

LD komt van LOAD: vul 
register met een getal 

Een machine taal programma wordt ontwomen 
met mnemonics. Later worden de biibeho¬ 
rende codes in een tabel opgezocht. Een 
computerprogramma dat het opzoeken van 
codes overneemt heet een assemble?? ï£ 
disass e m bler zoekt de mnemonics bij de 

g tallen van een bestaand machinetaal- 
programma. «-mnecaai 

de belangrijkste Z80-machine- 
ï aa rï?5 t ï uktlea is de L0AD instruktie. 

en registers U met e d VU ^ t h êe 5 eUgenplaatsea 
_ , ° sters met de inhoud van anderp 

nir eU hoX Plaa 5 Sen bisters. De mnemo- 
i e b°rende bij deze instruktie is 

ten^/a al . za 8 en: LD - Achter "LD" zet - 
tor we de P laats van bestemming (regis- 

vervol 2 Pn« he !J 8en ? laatS ^ » een komma, en 

daan kolt. " Mr de data 


tt. hD A, D betekent dus: 

Vul . register A (de accu) met data uit 
register D. Register D verliest hierbii 
met zijn inhoud; de data van JegiSIr D 
wordt gekopieerd in register A. 

p?oer a *? UktleS W ° rden in raac hinetaal- 
programma s zeer veelvuldig toeee D ast 
Dit ts noodzakelijk omdat dl Z80 maa? 1 

nmï^ reglSter , . kent < de accumulator) en 
h verwerking van gegevens uit het 

kan vinden? in de registers plaats 

Vb. Het BASIC programmaatje 

10 A = 10 
20 B = 20 
30 C = A + B 
40 D = A - B 

komt er in machinetaal zo uit te zien: 


LD A,10 
LD B,20 
ADD A,B 

LD C,A 

LD A,10 

SUB A,B 
LD D, A 


in A 


vul register A met 10 
vul register B met 20 
tel register A en B op, 
resultaat komt weer 
vul register C met de 
houd van A 

vul A opnieuw met 10 
inhoud van A was door 
optelling 30 geworden) 
trek A en B van elkaar 
resultaat in A 
vul D met de inhoud van 


het 

in- 

(de 

de 


af: 


zUt “• d8t “ een re- 
gister niet alleen met de data uit een 

gister kunt vullen, maar ook 
direkt met een 8-bits getal (0 t/m FF). 
Wanneer u een accumulator wilt vullen 
met de data van een geheugenplaats of 

nc°a 8eh künt” PlaatS i,“ e L de 1 ” ho “ d van een 
inst rukt les, ïanj^ïf " ake " 

LD A, (nn) 

LD (nn), A 

data 1 ?i1i e i geheUg f nplaats waarv an u de 
data wilt lezen of veranderen. De haak- 

d J re S s 8e L e ïf aan m l a ï ket gehe^na- 

wilt kopLére" e lnhOUd ervan ln A 

Samengevat: we kennen nu drie verschil¬ 
lende typen load-instrukties: VerSChil 

üt ï SdS^ÏÏÏtS 11 " ltlhoud van 

LD r,s waarbij voor r en s de 8-bits 

registers A,B,C,D,E,H en L in 
elke combinatie kunnen worden 
ingevuld. 

Vb. 58 LD E, B 
7C LD A, H 

2) Een register vullen met een getal 

>n waarin r weer een 8-bits 
register is en n een 8-bits 

vx nx « 8etal < 0 Fp ) 

Vb. 06 55 LD B,55 

2E Fl LD L,F1 

3) De accu vullen met de data van oor. 
geheugenplaats: LD A,(nn) 




De inhoud van een geheugenplaats vullen 
met de accu: LD (nn), A 


Vb. 3A 80 CO LD A, (C080) 

32 00 90 LD (9000), A 
U ziet dat na de instruktiecodes 3A en 
32 eerst de 8 laagste bits van de geheu¬ 
genplaats worden opgegeven en daarna pas 
de hoogste 8 bits. Het geheugenadres 
komt hierdoor a.h.w. omgekeerd in het 
machinetaalprogramma te staan. Door het 
toepassen van het hexadecimale getal— 
stelsel is het scheiden van de 8 hoogste 
en de 8 laagste bits zeer eenvoudig: u 
splitst het 4-cijferige geheugenadres in 
tweeen. 

In de accu kunnen rekenkundige instruk- 
ties worden uitgevoerd. Een van de re¬ 
kenkundige instrukties is de binaire 
optelling. De binaire optelling werkt in 
principe hetzelfde als bij decimale 
getallen. U dient zich echter te reali— 
seren dat 1+1 binair 10 oplevert en 
geen 2! 


Vb 1. 

In de accu worden de binaire 
01001011 en 01100010 opgeteld. 


getallen 


01001011 (4B) 

01100010 (62) 

(+ 

10101101 (AD) 


We 
1 + 
1 + 
den 
0 + 


starten rechts met 
0 = 1 1 opschrijven. 

1 = 10 ==ï> o opschrijven, 

0 + 1 = 1 ==$> 1 opschrijven 


1 onthou- 


enz. 


Vb 2. 

De accumulator kan slechts een 8-bits 
getal bevatten. Telt u twee getallen op, 
die een resultaat geven dat meer dan 8 
bits vergt om weer te geven, dan ont¬ 
staat een onverwachte situatie: 


De binaire getallen 11001011 en 10001000 
worden opgeteld: 


11001011 (CB) 

10001000 (88) 

(+ 

1 01010011 (1 53) 


Bij het meest rechtse bit vinden 
1 + 1 = 10 ==^ 0 opschrijven, 1 
den 


we: 

onthou- 


Eigenlijk zou deze "1 onthouden" mee 
moeten tellen bij het negende bit. Maar 
een negende bit is simpelweg niet aanwe¬ 
zig. We krijgen nu een optelling, waar¬ 
bij het resultaat kleiner is dan de 
beide opgetelde getallen. Om de program- 
meur attent te maken op deze onjuiste 
situatie wordt de C-vlag geset. 

De Z80 kent twee instrukties voor een 
binaire optelling: ADD en ADC. De in- 
struktie ADD telt de inhoud van A bij 
een getal of register op. Bij ADC worden 
de inhoud van A, een getal of register 
en de C-vlag (die 0 of 1 is) bij elkaar 
opgeteld. (ADC staat voor Add with Car- 



ry). In beide gevallen wordt het resul¬ 
taat teruggeplaatst in de accu en de 
vlaggen aangepast. 


Vb. 

80 


ADD A,B 


C6 21 ADD A,21 
89 ADC A,C 
CE 12 ADC A,12 


reg A= reg A + reg B 
reg A= reg A + 21 
reg A= reg C +carry vlag 
reg A= reg A +carry vlag 
+ 12 


We besluiten deze les met een uitgewerkt 
voorbeeld hoe u een machinetaalprogramma 
maakt, invoert in uw computer en RUNt. 

Opdracht: Maak een programma dat twee 8- 
bits getallen vanuit geheugen- 
plaatsen inleest, optelt en de 
som plaatst in een derde ge¬ 
heugenplaats. Een vierde ge¬ 
heugenplaats geeft aan of de 
carry vlag geset is. 

Uitvoering: Het machinetaalprogramma 

gebied worden geplaatst 
(8000-FFFF). We starten met een gedeelte 
BASIC, dus kunnen we niet 8000 als 
startadres nemen. 

Het gebied boven F000 wordt door de 
computer gebruikt. We kiezen als starta¬ 
dres: E000. 

We lezen de data van de geheugenplaatsen 
in met de instructie LD A,(E100). Een 
ander register (bijvoorbeeld B) bewaart 
de inhoud van de eerste geheugenplaats 
wanneer we de tweede geheugenplaats 
(E101) inlezen. Met ADD A,B tellen we de 
inhoud van de beide geheugenplaatsen op. 
Het resultaat bevindt zich in de accu 
dus kan met LD (E002),A direct de derde 
geheugenplaats gevuld worden. Wanneer we 
de accu en register B beide nul maken, 
levert ADC A,B een 1 op in de accu als 
de carry vlag was geset en anders 0. De 
accu wordt nu de inhoud van de vierde 
geheugenplaats. Vervolgens keren we met 
RET (return) terug naar BASIC (of terug 
naar het Monitor/Editor programma uit 
MSX-Gids nr.3). 


Aan de hand van het bovenstaande idee 
wordt het programma ontworpen. Daarna 
worden de machinetaalcodes opgezocht in 
de tabel. 


3A 00 El 
47 

3A 01 El 
80 

32 02 El 
3E 00 
06 00 
88 

32 03 El 
C9 


LD A,(E100) 
LD B,A 
LD A,(E101) 
ADD A,B 
LD (E102),A 
LD A,0 
LD B,0 
ADC A,B 
LD (E103),A 
RET 


Een machinetaalprogramma wordt vanuit 

BASIC als volgt aangeroepen : 

DEFUSR = &HE000 ==^ een wijzer geeft het 

begin van het pro¬ 

gramma aan. 

A- USR (0) ==^ de sprong naar het 

adres aangegeven door 
de wijzer wordt ge¬ 

maakt . 
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w m en uf ASIC pro 8 ramm a POKEn we eerst 
het machinetaalprograroma in h ol - e ® rst 

ln n ' E l“ M hIbb e ^ ^“«hnplaatsefllM 

pro 8 ra»a aan^" 8eVUld ' ™ het 

Beeldscherm: WIDTH 36 

II SI?? «•eSB'iS.ÏSg , ?.A 

è S-j^ ssm:r 

100 PR INT "De to, ie »HEX*<PEEK ( RHE1 0 

THEN P«INT»Car 

, 120 PRINT:GOTO 50 

140 DATA L 3^^ +A f ):RETURN 
150 DATA 32 , 0? 5e } , ^ 7ï3a ’ 01 » e l»80 
160 DATA 32J03*el’c?’ 00906900 * 88 

(MiCr ° SOft 

Tot dan. Mare Spierenburg. 

OVERIJSSEL 
PER HELICOPTERj 

fFff&i*SS? 

„„ btj ??'?°land boot? 31 
Het programma. 

AA: b bépa!ït 1J d k f e J arlabele ” ^ 

oepaait de kleur van de m-M koii 

(eerst zwart ° p het laat " t d * od ^ jdbalk 

plaats levert 250™™^° plaatsen * Elke 

sen wordt oïer|ega^nnaa? P * Na 8 plaat ~ 
niveau. ë ® naar een volgend 

BB: 0=toetsen l=joystick 
bepaalt ?„*"??? SST*"' DU »° pd ‘ 

bepaal t^^tichtinp 6 “«“«/jomlcks 
O*: krijlt ÏS ?|, ï SoI e a helicopter - 

de interne klok waar *de van 

buiten de hoofSlos r^ 0 aa " he > 1 - 

de klok weer op CU R gilet On 

ni6t dG dupe * a " 

aanpaslef^belr, o^gll SM?!®’ Het 

lopen!* Na n hII a ïaa?Ite V I? ° tA “ 5 kan 
het einde gesprïï^? W ° rdt naar 

oC. bevat de score, 

XI,Yl: de coördinaten van de i 

Plaats. In regel 3020 word? dl i ° 
gekozen. Uitbreiden v^ 'bet' 


3020 

ssr » a r s*-£ 

aangepast worden. wens 

XA.YA: de coördinaten van de helicopter. 

De tune wordt in reeel ni«o 

fierin n ;. DOOr,iat e<m dael «He “S- 

gezet kunne? " US • daU buffer “ ordt 

In de'ee?? sprites genaakt oorden 
eindigt e ” v ° ordat d e tune 

door 1 I die 

g r e S »e e „ 113k Ke 8 „ eanl v m r rd ^ 7^ ^ 

Iogelijk E d“or er sp ri b S 8l 2 bru^ 
ïan\ a rêe?“ie k ?e„ e ?d 8 . d ^ ^ 


In regel 63019-63024 staat 
die, aan de hand van de 
regel 63026-63032, de 
gedetaileerd tekent. M.b.v. 
de emdeoordinaten van de 
begmeoordinaten van de 2e 
een typische Microsoft-BASIC 
veel programmeurs moeten dit 
oplossen: 

HULP=X1:XI=X2:X2=HULP 


de routine 
getallen in 

provincie 
SWAP worden 
le lijn de 
etc. Dit is 
instruktie. 
als volgt 


In een maand wordt duideliit a<>»- j 
Microsof t-BASIC zeer krachtige ^i de 
ken ik de mogelijSïdS SJ 8 niét gS 
genoeg om ze ten vole L £ J eÓ 
Hopelijk helpt „ij„ &l ,tIlL““? 

x J n grote interesse voor MSX-BASIC * mi -i 
en stap te zetten in de richting’ v£n J 
gestuctureerder programmeren. 8 30 

Tevens hoop ik een blad als de MSX-rmc: 

gere k ?“c e t n ee h rd 1 e Pe Ero Ult8r0alaa 
MSX-liefhebbers? rde br ° n TO ° r 2eer veel 

Snfo'schSjvé^TOor"* blad. pr ° 8ram " a 

richard altenburg 

(Red. Gezien de kwaliteit van dir 
programma zeggen wij ook GRAAG!) 1 


2 ’^'g^COMPUTING & MSX GIDS 

f B0SUB 10000 
o GOTO 3000 
8 * 

9 'HOOFDLUS 

20 ioUND T^BllVVSi i« 4 in DUND 6,24 

30 SOUND 12’3- 1 sni 1 |wn 1 ?i :S 9 UND 8 ’ ié> 

2 !2,3.SOUND 11,50:SOUND 13,1 

40 CO=STICK(BB) 

la om CO=0 THEN 150 

£fl§0,??0 GOT ° 70 ’ 80 ^ 90 ï100,110,12 

80 Ïü-Ï2"^ !G0T0 150 
f 0 xA=Jg:i:^ A rié G0T ° 150 

1Ü0 XA—XA+3:YA=YA+3:GOTO 150 






110 YA=YA+3ï BOTO 150 

120 XA=XA-3:YA=YA+3: GOTO 150 

130 XA=XA—3: BOTO 150 

140 XA=XA-3:YA=YA-3:GOTO 150 

150 IF TIME >=3000 THEN LINE<17,172) 

-(255,182),7,BF:GOTO 5000 

160 IF TIME>2500 THEN AA=9 

170 TI=TIME *•08533 

180 LINE (T1,189>-<TI,191),AA 

200 PUT SPRITE 1,<XA-4,YA-4>,15,1 

220 PUT SPRITE 1,(XA-4^YA-4),15,2 

240 PUT SPRITE 1,(XA-4,YA-4),15,3 

260 IF ABS (XA-XÏXll AND ABS (YA-Y1 

Xll THEN CIRCLE (X1,Y1),2,7:PAINT(X 

1,Y1),7:CIRCLE <X1,Y1),2,4:PAINT(X1, 

Y1),4 5 

280 IF ABS (XA-X1X3 AND ABS (YA-Y1) 

< 3THEN GDSUB 1000 

300 GOTO 40 

998 ’ 

999 * PLAATS GEVONDEN 

*************** 

1000 CUR=TIME 

1010 LINE (17,172)-(255,182),7,BF 
1020 FOR G=0 TO 7:COLOR ,,G:NEXT 
1030 SC=SC+250 

1040 LINE(150,21)-(248,29),14,BF 
1050 PSET (152,22),14 
1060 COLOR 1 SPRINT #1,"SCORE:":USING 
"######";SC ’ 

1070 AP=AP+1sIF AP<8 THEN 3000 

1998 ’ 

1999 ' 8 PLAATSEN GEVONDEN 

******************* 

2000 SOUND 7,&B11111000 
2010 PLAY "T170V1102L4CLBDEL4FGL2F." 

,"T170V12O5L2C.L404BAGG","R" 

2020 FOR F=1 TO 100:FOR G=1 TO 7 
2030 COLOR,,G:NEXT:NEXT 
2040 BO=INT((3000—CUR)/50) 

2045 SOUND 13,8: SOUND 12,2:SOUND 1,4 
:SOUND 7,&B11110110;SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE(150,21)-(248,29),14,BF 
2080 PSET(152,22),14:COLOR' 1 
2090 PRINT #1,"SCORE:"jUSING »###### 

*• ■ gQ 

2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0,189)-(255,191),7,BF 
2140 NIV=NIV+l : IF NIV>5 THEN 5000 
2150 GOSUB 63040 

2998 ’ 

2999 ’ PLAATS KIEZEN 

************* 

3000 RESTORE 4000 

3020 PNR=INT(RND(-TIME)*11) + <11*NIV) 
3040 B$=A$ 

3060 FOR F=0 TO PNR 
3080 READ A*,X1,Y1 
3100 NEXT F 

3120 IF A$=B$ THEN 3000 
3140 X1=X1+20 

3180 PSET(17,172),7:COLOR 1 
3190 PRINT #1,"VLIEG NAAR:"ïA$ 

3200 TIME=CUR 
3220 GOTO 10 

3998 ’ 

3999 ’ DATAREGELS MET PLAATSEN 

*********************** 

4000 DATA ZWOLLE,73,83,OLDENZAAL,186 
,123,STEENWIJK,77,24,ALMELO,150,118, 
EMMELOORD,25,40,HENGÈLO,171,130,DEDÊ 
MSVAART,125,62,DEVENTER,82,142,KAMPE 
N^48,72,ENSCHEDE,180,146,RAALTE,93,1 


4001 ’ 

4010 DATA URK,8,50,GLANERBRUG,192,14 
6,STEENWIJKERWOLD, 70,21, RIJSSÈN, 131, 
lol,NIEUWLEUSEN,97,67,GOOR,151,142,S 
LA6HAREN,136,56,VROOMSHOOP,138,95,DA 
LFSEN,93,84,HAAKSBERGEN,158,157,DÈNE 
KAMP,196,109 

4011 =■ 

4020 DATA DIEPENVEEN,81,134,DELDEN,1 
56,141,GIETHOORN,70,35,BATHMEN,96,14 
1,HEINO,89,101,LOSSER,198,136,Ó0TMAR 
BUM,182,102,GENEMUIDEN,66,60,MARKELO 
40?1’' 42 ’ STAPHDRST * 88 » è1 fOLST,76,120 

4030 DATA DE KRIM,143,52,RUTTEN,17,2 
3 > HSbI EN ’ 115 * 134 *BOEKELO,169,150,TÜB 
BERGEN,167,103,WIJHE,80,111,ÓMMEN,11 
9,71,SCHALKHAAR,86,138,BALKBRUG,115, 
6o,OLDEMARKT,58,15,BERGENTHEIM, 143, 7 

4031 ? 

4040 DATA MARKNESSE,44,40,LEMELERVEL 
D,108,96,IJHORST,98,50,HEETEN,94,121 
,DE LUTTE,195,122,B0RNÈ,164,132.NAGE 
LE,22,57,IJSSELMUIDEN,51,67,SIBCULO, 
146,91,ENTER,137,133,OUDLEUSEN,103,7 

4041 ’ 

4050 DATA KRAGGENBURG,48,50,DIEPENHE 
IM,135,150,WESTENHOLTE,67,83,BUURSE, 
i 63 ’ DVERDINKEL *203, 142 » ittersum, 
75,87,DEN HAM,126,95,GEESTEREN,161,1 
00 *KUINRE,40,25,HASSELT,71,66,HENGÈV 
ELDE,146,150 

4998 * 

4999 ’ EINDE SPEL 

********** 

3000 P0R F=1 TO 3:PUT SPRITE 1,(200, 
200),7,F:NEXT ’ 

5005 IF NIV>5 GOTO 5020 
5010 LINE (B6,70)—(160,80),14,BF 
5015 PSET(88,72),15:PRINT #1,"TIJD O 

5020 SOUND 1,0:SOUND9,0: SOUND 7,8<B11 
111110 

5025 FOR G=1 TO 7:SOUND 8,15-G:F0R F 
NEXT T ° 255:SDUND Ft OOLÖR,,G:NEXT: 
5030 SOUND 8,0 

5035 LINE (86,70)—(160,80),4,BF 

5040 LINE(0, 189)—(255,191)«7,BF 

5045 IF SC>HS THEN HS=SC 

5050 SC=0 :NIV=0 

5100 GOSUB 63040 

5110 XA=125:YA=85 

5120 GOTO 6 

5998 * 

5999 * INTRODUCTIE-TUNE 

**************** 

6000 SOUND 7,&B11111000 
6005 FOR F=1 TO 2 

6010 PLAY "T170V13","T170V12","T170V 

6020 C*= "05L4CEFEDC04B05CL2DDL4CEFE 
DCC04B05L2CC" 

6040 D*= "04L4EGAGB.L8ABG05L4C04L2BB 
05L4C04GAGBAAGL2EE" 

6060 E$= "04L4CCFCGCGAL2GGL4CCFCGAFG 
L2CC 11 

6100 PLAY C$,D$,E$ 

6120 C*= "05L4DC04B05CDEL2DL4DC0AB05 
CDEL2DL4CEFEDCC04B05L2CC" 

6140 D$= "04L4B05C04G.L8AL4B05C04L2B 

L4B05C04G.L8AL4B05C04L2B05L4C04GAGBA 

6160 E*= "04L4GAGCGCL2GL4GCGCGCL2GL4 
CCFCGAFGL2CC" 
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ViO\ h ?,(, R-el ... 

CL L b 0 ^e\ ’R ^' fcur ' A - 




25 


6200 PLAY C$,D$,E$ 

6300 NEXT F 
6500 RETURN 

9998 ’ 

9999 ' TITELPAGINA 

10000 SCREEN*!^***** 

10040 COLOR 15 , 4 , 4 :CLS 

i|||i ReI¥dr1 r ^4 3 0 DR ° utput flS « 

IC 100 FOR F— 62.5 TO 187 5 STFP *?*=• 
10120 LINE Ü 25 , 5 )-(F 9 ^ ?' EP 
10140 CIRCLE STEP< 0 , 9 ) 9 7 7 
10160 READ A$ , 9,7 

10180 PSET (F- 2 , 30),4 
10190 COLOR 7 :PRINT #1 A$ 

10200 NEXT F 1,A * 

10220 FOR F =25 TO 225 STFP *?—■ 

10240 LINE(125,45)-7F,fJf9 2 ° 

10260 CIRCLE STEP( 0 , 9 ) 9 o 
10280 READ A$ ’ , ’ 9 ’ 9 

10300 PSET (F- 2 , 75).4 
10310 COLOR 9 :PRINT #1 A 4 > 

10320 NEXT F * 1,A * 

10340 FOR F= 87.5 TO 167 s ctcd 
10360 LINE (125 92 ) -Jf ï 
10380 CIRCLE STÊP ?0 £’ 

10400 READ A$ ö,th ^’ 9 ) » 9 5 ll 

10420 PSET (F- 2 , 120 ) 4 
10430 COLOR llrPRINT^ttl A $ 

10440 NEXT F r " ANI 
10450 DATA M A R T a 1 p n M 
10455 DATA T, I ’ N,’G ,’1 ’ 9 ’s’ 4 ? P ’ U 
10460 PSET ( 66 , 148 ) 4 ’’ 

10470 COLOR 14 :PRINT # 1 ,-- presentee 

1^80 PSET (25, 165), 4 
ÈrHl L ?KG°?E^. PRINT #1 ’ "OVERIJSSEL P 
10490 PSET (93,178),4 
10495 COLOR 14: PRINT #1 " (r\ ioo=-n 
10498 FOR F=300TO0STEP-1 : SOUNDS^/20 

10999 ^INSTRUCTIE ! 00 ïNEXT 

11000 SCREEN*0********* 

11020 WIDTH 37 

11040 COLOR 1.5 5 * Pi c 

11060 LOCATE 4 ,Is PRINT CHR 4 ( 17 s\xh n 
VFRTlcciri om . ll ' 11 LHR$(i 75 )+» O 

VfcRIJSSEL PER HELIKOPTER ••+ CHR *(174 

11080 LOCATE 4 , 4 :PRINT 
dit spel is het 
s leren van plaats- 
Provincie Overijssel 11 

ï°r a Sih - 

oed in het oog ■» dus 9 

ïite 0 p!raï?; E b ^'f^ RINT ” Na ?j t 1 ,^ ach 

op een hoger niveau.» ,kora Je 

11140 L0CATE12, 17:PRINT»Veel succes 

teken en °van E de* ^■"«"T-Dru^na het 

lk voor toetsen ~_spatieba 

p voor joystick 1 » vuurkno 

Ü 180 GOSUB 6000 

flllf fK!! N 2 -®.®=C 0 L 0 R 7 , 7 , 7 =CLS 
63003 RESTORE 63004 


"Het doel van 
spelenderwij 
namen in de 


Sfü S«! A ®! 9 8,54 4 32, 108,70,0,21. 
,54,98^0^"23i,24,24,24,0,70,108,32,4 

tllf! READ 1 "; 1 T ° 3!FDR 6=1 T0 8 

SSb ££Ï*| CHR * <x ’ 

63009 SPRITE$(F)=X* 

63010 X$="" 

63011 NEXT F 
63017 RESTORE 63026 
6o>018 COLOR 4 

63019 X1=25 : Yl=12 

63020 READ X2.Y2 

* 302 i LINE ^X1+20, Y1) — (X2+20 Y2) 

630j:2 SWAP XI, X2: SWAP Y1 v? * 

63023 ON ERROR GOTO *3025 

63024 GOTO 63020 
6^025 PAINT(46,15),4 

J; II; £: t i: ll: tl: U’^’ 82 - 55 ^- 

7 fif i r«f? 2 R , ; Ti: 

51*8,79,136,78, 144,è0,!4*;ê^i;ifès 9 
fi4ifu5 T ?4? 6 ;iJ 3 ;22’ !JS> 103 > 144 > 106 

Sis: ISliSSüeS-’^^is 

6o«030 DATA 155-82.148 7 “^ 1 c -7 7n . . 
71,163,72, 165, 70, 157 65 1 
6,155 52,140,477!30^53^130 7 *0 ? ïiS 5 i| 
iestit 0 ’ !20,5B >1‘ 5 »60,110,54,105,51, 
6-J.031 DATA 103, 47- 100 4 P Q~7 40 on Tirr 

: %:tl: 7 8 ?;? : BH ’! 

i^4i 6 A 57 > “> 33 ; 12, 511 IS’ ’ ’ 4 ’ 14 

0^20,30^17, 2 !) 12 , 43 ï 1 Eï 40 » 20 » 35 518,3 

S êïoR^T ' 01 XA=I25! Yfl ' 85 = «A-l 
63062 LINE(150,5)-(248 13) 14 dc 

VEAU?~ruIlNG»ïERINT# 1, »NI 

6 Ü6 6 f ^f ( i ^7 ?r> 2 ^.‘4,8E 

G"##S#£S»?§c l!PRINT Hl,"SCORE:»,USIN 

fllll. i|> Ps 
tiiïéïhwi *' 6! PRINT 

patiebalk/vuurknop.’ R 8 ^^T# 1 , "DRUK s 

tc 0 i^ï F 8 TRIG ( 0 ) =— 1 THEN BB =0 p. cc 

sgs'is&TA. éVf r 

63100 RETURN I-K», 182) ,7,BF 

63200 7 

» met dank aan « 

» SYBRAND RUITER '. . . « 

4: * <en zijn atlas) 




C0NTR0LETELL1N6 
Regel: 1 - 56 

Regel: 2 - 247 

Regel: 4 - 1B 

Regel: 6 - 154 

Regel: B - 58 

Beijiii iJ: ü 
Regel: 20 - 152 
Regel: 30 - 101 
Regel: 40 - 247 
Regel: 50 - 27 
Regel: 60 - 92 
Regel: 70 - 176 
Regel: B0 - 16 
Regel: 90 - 173 
Regel: 100 - 15 
Regel: 110 - 175 
Regel: 120 - 16 
Regel: 130 - 174 
Regel: 140 - 17 
Regel: 150 - 57 
Regel: 160 - 242^ 
Regel: 170 - 94 
Regel: 180 - 61 
Regel: 200 - 62 
Regel: 220 - 63 
Regel: 240 - 64 
Regel: 260 - 209 
Regel: 280 - 159 
Regel: 300 - 223 
Regel: 998 - 5B 
Regel: 999 - 90 
Regel: 1000 - 164 
Regel: 1010 - 97 
Regel: 1020 - 141 
Regel: 1030 - 21 
Regel: 1040 - 148 
Regel: 1050 - 116 
Regel: 1060 - 59 
Regel: 1070 - 126 
Regel: 1998 - 58 
Regel: 1999 - 58 
Regel: 2000 - 21 
Regel: 2010 - 119 —' 
Regel: 2020 - 202 
Regel: 2030 - 214 
Regel: 2040 - 150 
Regel: 2045 - O 
Regel: 2050 - 147 
Regel: 2060 - 127 
Regel: 2070 - 148 
Regel: 2080 - 125 
Regel: 2090 - 50 
Regel: 2110 - 233 
Regel: 2120 - 58 
Regel: 2130 - 108 
Regel: 2140 - 133 
Regel: 2150 - 17 
Regel: 2998 - 58 
Regel: 2999 - 58 
Regel: 3000 - 105 
Regel: 3020 - 146 
Regel: 3040 - 186 
Regel: 3060 - 241 
Regel: 3080 - 119 
Regel: 3100 - 233 
Regel: 3120 - 80 
Regel: 3140 - 21 
Regel: 3180 - 135 
Regel: 3190 - 233 
Regel: 3200 - 164 
Regel: 3220 - 193 
Regel: 399B - 58 
Regel: 3999 - 58 
Regel: 4000 - 254 
Regel: 4001 - 58 
Regel: 4010 - 102 — 
Regel: 4011 - 5B 
Regel: 4020 - 1B1— 
Regel: 4021 - 58 
Regel: 4030 - 108 — 
Regel: 4031 - 58 
Regel: 4040 - 233 - 
Regel: 4041 - 58 
Regel: 4050 - O 
Regel: 4998 - 58 
Regel: 4999 - 58 
Regel: 5000 - 230 
Regel: 5005 - 34 


Regel: 5010 - 128 
Regel: 5015 - 2 

Regel: 5020 - 217 
Regel: 5025 - 119 
Regel: 5030 - 58 
Regel: 5035 - 120 
Regel: 5040 - 76 
Regel: 5045 - 4 

Regel: 5050 - 189 
Regel: 5100 - 241 
Regel: 5110 - 59 
Regel: 5120 - 189 
Regel: 599B - 58 
Regel: 5999 - 90 
Regel: 6000 - 21 
Regel: 6005 - 21 
Regel: 6010 - 243 
Regel: 6020 - 148 
Regel: 6040 - 8 

Regel: 6060 - 148 
Regel: 6100 - 113 
Regel: 6120 - 164 
Regel: 6140 - 14 
Regel: 6160 - 171 
Regel: 6200 - 113 
Regel: 6300 - 233 
Regel: 6500 - 142 
Regel: 9998 - 58 
Regel: 9999 - 58 
Regel:10000 - 114 
Regel:10040 - 86 
Regel:10060 - 81 
Regel:10080 - 180 
Regel:10090 - 102 
Regel:10100 - 50 
Regel:10120 - 15 
Regel:10140 - 234 
Regel:10160 - 12 
Regel:10180 - 24 
Regel:10190 - 166 
Regel:10200 - 233 
Regel:10220 - 76 
Regel:10240 - 68 
Regel:10260 - 236 
Regel:10280 - 12 
Regel:10300 - 69 
Regel:10310 - 168 
Regel:10320 - 233 
Regel: 10340 - 85 
Regel:10360 - 192 
Regel:10380 - 236 
Regel:10400 - 12 
Regel:10420 - 114 
Regel:10430 - 168 
Regel:10440 - 233 
Regel:10450 - 150 
Regel: 10455 - 224 
Regel:10460 - 148 
Regel: 10470 - 213- 
Regel:10480 - 124 
Regel:10485 - 163 
Regel:10490 - 205 
Regel:10495 - 21 
Regel:10498 - 71 
Regel:10500 - 220 
Regel:10999 - 58 
Regel:11000 - 246 
Regel:11020 - 244 
Regel:11040 - 76 
Regel:11060 - 39 
Regel:HOBO - 55 
Regel:11100 - 10 
Regel:!1120 - 106 
Regel:11140 - 3 

Regel:11160 - 200 - 
Regel:11180 - 66 
Regel:63000 - 194 
Regel:63002 - 175 
Regel:63003 - 204 
Regel:63004 - 206 
Regel:63005 - 108 
Regel:63006 - 255 
Regel:63007 - 22 
Regel:63008 - 234 
Regel:63009 - 237 
Regel:63010 - 175 
Regel .*63011 - 233 
Regel:63017 - 226 
Regel:63018 - 242 
Regel:63019 - 174 


Regel:63020 - 232 
Regel:63021 - 11 
Regel:63022 - 66 
Regel:63023 - 89 
Regel:63024 - 217 
Regel:63025 - 216 
Regel:63026 - 17 
Regel:63027 - 62 
Regel:63028 - 12 
Regel:63029 - 213 
Regel:63030 - 128 
Regel:63031 - 255 
Regel:63032 - 116 
Regel-.63040 - 231 
Regel:63060 ■ 45 
Regel:63062 - 118 
Regel:63063 - 178 
Regel:63065 - 14B 
Regel:63067 - 116 
Regel :63069 - 59 
Regel:63070 - 32 
Regel:63072 - 207 
Regel:63075 - 235 
Regel:63080 - 36 
Regel:63090 - 97 
Regel:63100 - 142 
Regel:63200 - 58 
Totaal: 24942 



DISKETTES 


De programma’s uit de MSX Gids zijn nu ook 
op diskette leverbaar. 


Er zijn alleen 80-track 
krijgbaar; -formaat 3.5 en 
5.25 is niet leverbaar! 


diskettes ver- 
5.25. 40-track 


Diskette nr. 1 bevat de belangrijkste 
programma’s van MSX-Gids 1 t/m 3. Een ver¬ 
zamel diskette dus. 


Diskette nr. 4 bevat alle programma’s 
deze gids. 


uit 


De diskettes starten automatisch op en 
zijn geheel menu-gestuurd met diverse 
keuze mogelijkheden en schermen. Alles in 
bi~res graphics. Het menu bevat ook een 
overzichts programma, dat geschikt is voor 
twee drives. 

De 3.5 diskettes kosten Fl. 25,00 p.st. en 
de 5.25 versie kost Fl. 15,00. 

Deze prijs is incl. verzendkosten (in 
speciale diskette verpakking). 

Bestellen door overmaking op giro 909515 
t.n.v. A.Debels te Amsterdam. 

Voor Belgie is de prijs BFr. 470 voor de 
3.5 versie en BFr. 280 voor de 5.25 
versie, en betalingen kunnen geschieden 
op rek.nr. 235-0430464-87 bij de Generale 
Bankmij. te Hasselt t.n.v. J.Herps, 
postbus 10252, 1001 EG Amsterdam. 

Vergeet het nummer van de diskette niet te 
vermelden. 

NOGMAALS: ALLEEN 80 TRACK DISKETTES!! 
Inl. Tel. 020-320807 


S üjjtume 

DISKETTES 
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Hardware 

Trend jp-130 ft 
matrix printer T 

Voor we de TREND JP-130 MSX printer 
bekijken gaan we eerst even terug naar de 
Philips VW0030 in het vorige nummer. Hier 
zijn enkele prijzen niet juist weergeqe— 
ven. 

De tractorfeed van deze Philips printer 
kost geen F1. 250,00 maar heeft een 

adviesprijs van slechts F1. 53,55 !!! 
Verder is de adviesprijs van deze printer 
inmiddels verlaagd en deze bedraagt nu 
Fl. 1149,00 inclusief BTW. 

De schrijver van het artikel was over de 
prijs van de tractorfeed waarschijnlijk 
verkeerd voorgelicht. Mocht hij deze 
prijs echt hebben betaald dan zou ik, als 
ik hem was, maar eens snel naar de 
leverancier rennen. De hierboven genoemde 
prijzen zijn ons door Philips opgegeven. 

TREND JP-130 MSX 

Deze printer wijkt heel sterk af van de 
andere printers (Philips.Seikosha) die 
voor de MSX leverbaar zijn. De Trend 
printer werkt met ovale printnaalden die, 
in de 7 normale 7 stand, al een Ne*r Letter 
Quality geven. Hierdoor kent deze printer 
slechts 1 (hoge) snelheid van 130 tekens 
per seconde. Om de kwaliteit goed te 
kunnen beoordelen is dit artikel dan ook 
geprint met deze printer. Er is van de 
12-pitch letter gebruik gemaakt en -zoals 
te zien is- geeft dat een goede 
kwaliteit. Deze tekst wordt toch met de 
volle snelheid gedrukt. 

De Trend printer is geen echte MSX 
printer doch een IBM-compatible, die d.m. 

A,‘i ee Hr.5 a ^ t r id9e aange P ast is aan de MSX. 
Alle MSX tekens zijn aanwezig maar de 

specifieke aansturingscodes van de MSX 
worden niet gebruikt. Deze cartridge 
houdt wel een slot van de computer bezet. 
Zonder cartridge werkt de printer ook 
goed, maar dan wel zonder de speciale MSX 
tekens. 

Bijna alle aansturingen moeten vanaf de 
computer geschieden. Deze printer heeft 
geen dipswitches om b.v. de verschillende 
lettertypes in te schakelen. Alle letter¬ 
types kunnen door elkaar worden gebruikt 
door in dB tfikst de codes op te geven. De 
printer heeft een 2Kb RAMgeheugen dat als 


int. Dit 

is 

lint 

is 

wurmen, 

en 

lukt, 

dan 

van de 

10 

tijdens 

het 

en van 

een 


printbuffer wordt gebruikt. Dit geheugen 
is uit te breiden tot 4Kb en met het 
gebruik van de cartridge blijft van de 2K 
nog slechts 640 bytes over? de aan¬ 
vullende lettertekens uit de' cartridge 
worden n.1. in deze buffer gezet. y 

Ondanks de hoge snelheid maakt de printer 
erg weinig lawaai; veel minder dan b.v. 
onze letterwielprinter. Het papiertrans- 

Eonfii S °K k i 9 er yisloos, maar gaat wel een 
beetje schokkerig. De maximale printsnel- 

heid wordt verkregen bij ’bidirectioneel’ 
dit Qaat wel ten koste van 
d ? k ” all teit. Wanneer de bidirectionele 
stand wordt uitgeschakeld is de snelheid 
nog altijd zo’n 110 tekens per seconde 
en de kwaliteit is dan wel optimaf? ’ 

De papierinvoer is probleemloos; zowel 
met losse vellen als met de ingebouwde 
tractorfeed. Wat wel veel problemen geeft 
in het plaatsen van het inktlint. Dit 
haast niet te doen. Het *• • 

nauwelijks in de machine te 
als het dan uiteindelijk 
springt het lint er in 9 

gevallen nog een keer uit 

printen. 

Wat nog opvalt is het ontbreken van 
cursieve letter. 

De bijgeleverde handleiding is in het 
Engels en, voor een leek, nauwelijks 

bruikbaar. Wie niets —of nauwelijks iets— 
van computers en printers afweet zal vele 
uren nodig hebben voor het rommelen met 
de verschillende CHRS- opdrachten. 

De prijs van deze printer bedraagt (incl. 
tractorfeed en BTW) Fl. 1185,00 waarbij 

nog Fl. 85,00 opgeteld moet worden voor 
de MSX- cartridge. De printer werkt met 
multistrike’ carbonlinten welke Fl. 
29,75 per stuk kosten. Deze linten worden 
sneller grijs dan de 'ouderwetse’ nylon 
linten maar het printmechanisme blijft 
-op een klein beetje poeder na- wel goed 
schoon. 

Voor deze prijs krijgt men een goede, 
degelijke en vooral snelle matrixprinter. 
Het lettertype wijkt wel enigszins af en 
de persoonlijke smaak, plus het doel 
waarvoor de printer wordt aangeschaft, 
zullen de doorslag moeten geven. Trend- 
producten zijn verkrijgbaar in de 12 
vestigingen van TREND GROUP NEDERLAND 
waar een goed advies en goede service 
worden verleend. Deze zaken leveren ook 
de Philips en Seikosha printers wat een 
vergelijking, en keuze, ter plaatse 
vergemakkelijkt. 


Dit is ELITE-schrift (12 pitch) 

Dit is PICA-schrift (10 pitch) 

Zo is het proportioneel 
En zo ziet CONDENSED eruit 

Di t l-teeee-fc EWLARGED 
EMPHASIZED geeft een vette letter 
DOUBLÉ STRIKE is iets minder vet 

SUPERSCRIPT EN 

subscript 

g ••mmn a«t CONDENSED 


En d« 


Dit oe eft en liintie 
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BOEKEN 


MSX 2 HANDBOEK 

De geheugens van computers zijn -ook van 
de 16- en 32-bitters- nog steeds te 
klein om handleidingen, handboeken e.d. 
in de vorm van software bij het systeem 
mee te leveren* Voorlopig blijven we 
daarom nog vrijwel geheel afhankelijk 
van 'ouderwets" drukwerk. Naast de 
diskdrives vinden we dan ook meestal een 
flink gevulde boekenplank en voor deze 
laatste bespreken we hier een nieuwe 
aanwinst. 

Van uitgeverij STARK, geschreven door 
A.C.J. Groeneveld, komt het eerste boek 
voor de MSX-2; het MSX 2 handboek. Een 
fikse pil, die met zijn ruim 500 
pagina's al gauw een harddisk zou 
volschrijven. Dit handboek is zo dik 
omdat het hier niet om een aanvulling 
van eerdere boeken gaat, maar om een 
volledig nieuw boek dat alle instrukties 
-zowel MSX 1 als MSX 2- beschrijft. Het 
behandelen van al deze instrukties neemt 
ongeveer 350 pagina's in beslag. 

Hierbij gaat het alleen om de BASIC- 
instrukties; disk-BASIC en MSX-DOS komen 
niet ter sprake. Bij de MSX 2 is dit 
niet zo'n bezwaar daar, bij deze nieuwe 
machine, veel nieuwe instrukties zijn 
ingevoerd die erg veel op reeds 
bestaande disk- instrukties lijken. Zo 
kent MSX 2 opdrachten als: COPY, CALL, 
GET, SET, PUT, zodat een apart boek voor 
disk- Basic en DOS misschien wel zo 
handig is. 

Uiteraard is het gehele boek in het 
Nederlands geschreven en de 
verschillende instrukties zijn 
duidelijk, overzichtelijk gerangschikt 
en -geschreven. Bijna overal zijn de 
sleutelwoorden voorzien van voorbeelden 
en stukjes programma die de werking van 
de instrukties verduidelijken. Iedereen 
die een klein beetje op de hoogte is met 
BASIC kan hiermee prima uit de voeten en 


zal aan dit boek voorlopig voldoende 
hebben om met de MSX 2 -of 1- aan de 
slag te gaan. Alleen de allerprilste 
beginner heeft nog behoefte aan wat meer 
informatie ter kennismaking met de 
computer. Ook hierin voorziet dit MSX 2 
handboek. Het eerste gedeelte van deze 
pil -ca. 80 pagina's- is geheel 
geschreven om kennis te maken met de MSX 
computer. Hier wordt begonnen met het 
intoetsen van de eerste lettertjes en 
via de variabelen en wat gegevens over 
de interne stuktuur van de MSX gaat het 
naar de logische bewerkingen. Geen echte 
cursus, maar voor de velen, die b.v. met 
een Engelse handleiding worstelen, is 
dit een goede aanvulling. 

Nu houden we nog ruim zestig pagina's 
over. Deze 60 vinden we in het laatste 
gedeelte van het boek en hier staan b.v. 
een overzicht van de foutmeldingen, de 
soundgenerator, het videogeheugen enz. 
Vooral over de nieuwe videochip en de 
daarbij behorende videoram is behoorlijk 
wat te vinden. 

Het MSX 2 handboek staat boordevol 
informatie zowel voor de beginner als de 
gevorderde gebruiker. Het is zondermeer 
een pluspunt dat alle instrukties -zowel 
voor de MSX 1 als de MSX”- bij elkaar in 
een boek te vinden zijn. Als klein 
nadeel staat hier tegenover dat, door de 
grote hoeveelheid instrukties, dit boek 
nogal dik en niet al te handzaam is 
uitgevallen. We hebben geen ernstige 
blunders kunnen vinden, maar we hebben 
tot slot nog wel een verzoekje aan de 
uitgever: 

In dit boek staan de sleutelwoorden op 
alle pagina's -dus ook de linker 
pagina's- bovenin aan de rechter zijde. 
Dit verlangt -bij deze linker pagina's- 
het 'opendrukken' van de pagina's wat 
waarschijnlijk tot een voortijdig breken 
van de rug zal leiden. Bij een eventuele 
tweede druk zouden deze sleutelwoorden, 
wat ons betreft, bij de linker pagina's, 
ook in de linker bovenhoek geplaatst 
mogen worden. 

De prijs van dit boek is 56,50. Dit 
lijkt duur, maar voor dit bedrag krijgt 
de koper een heleboel informatie. 
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MSX VERDER UITGEDIEPT 


HET MSX MACHINETAAL BOEK 


De uitgeverij STARK op Texel staat bekend 
om haar kwalitatief hoogwaardige uitgaven 
op MSX computergebied. Zo kunt u 
bijvoorbeeld een gehele cursus, in vier 
delen, aanschaffen voor uw MSX. Er zijn 
verder boeken over MSX DOS, Disk BASIC, 
Quickdisk etc. 


Bovenvermeld boek -geschreven door 
H.Klopper- is een van de meest recente 
uitgaven voor de MSX computer. Het boek 
behandelt, zoals op de voorpagina te zien 
is, de screen locaties, sprites, control 
codes, het VPOKE statement, de video chip 
e.d. 

Naast de uitleg over deze onderwerpen 
vindt u ^in het boek ook verschillende 
programmals. Onder deze programma's 
bevinden zich een 'header lezer', een 
wereldkaart, een diskette loader utility, 
en een aardig animatie programmaatje met 
karakters. Al deze programma's hebben een 
grote praktische waarde. De headerlezer 
stelt u in staat om begin-, eind- en 
startadres van een machinetaal programma 
op te vragen (makkelijk als cassette 
software naar diskette overgezet moet 
worden). De wereldkaart kan in eigen 
programma's gebruikt worden. De 
diskloader zet alle programma's op het 
scherm waarna, met de cursor op het 
eerste karakter van het te laden 
programma, en een druk op ESC, het 
gekozen programma dan erg makkelijk kan 
worden ingelezen. 


Het boek begint met een uitleg over het 
geheugen van de MSX computer. Hierna 
wordt ingegaan op het VPOKE statement. Zo 
komt er een leuke routine in voor waarmee 
een inverse karakter kan worden verkregen 
en er wordt verteld hoe de MSX 
karakterset verder te veranderen is aan 
de hand van enkele voorbeelden. 

Bij de bespreking van de geheugen 
indeling wordt een keurige opsomming 
gegeven van de belangrijkste systeem 
variabelen die een MSX computer rijk is. 
Er wordt dieper ingegaan op de VDP en het 
videoram waarbij alle videoram adressen 
duidelijk worden uitgelegd. In dit boek 
wordt op een duidelijke manier het 
gebruik van sprites gedemonstreerd. Alle 
sprite locaties worden hier 
overzichtelijk • bekend gemaakt. Verder 
worden het VDP statement en het BASE 
statement uitgelegd en tenslotte worden 
het Hexadecimale en het Binaire 
talstelsel uiteengezet. 

Al met al een goed boekje, vooral voor de 
wat gevorderde programmeur. 

De prijs van dit boekje is Fl. 23,90 


Door: H. Klopper & Marcel Le Belle. 

Alweer een boek van uitgeverij STARK. Dit 
boek is verdeeld in twee delen. Een zeer 
uitgebreide inleiding over variabelen, 
het geheugen, BASIC-tokens, de 
verschillende talstelsels etc. Door de 
inleiding wordt een beter inzicht 
verkregen hoe de computer nu feitelijk 
met de ingevoerde opdrachten omspringt. 
Dit is zeker nodig als in machinetaal 
moet worden gewerkt. 

De machinetaal cursus behandelt vrijwel 
alle belangrijke instrukties van de bij 
de MSX gebruikte Z80A microproce ssor. 
Alle instrukties worden uitgelegd aan de 
hand van programmavoorbeelden. Dit werkt 
vaak veel duidelijker dan het 1 voor 1 
opnoemen van de instrukties met een 
bespreking. Ook het gebruik van hooks, 
romroutines e.d. wordt uitgelegd. Een 
aardig detail is een aantal utility 
programma s om cassette software naar 
diskette over te zetten. Er wordt een 
voorbeeld gegeven met het programma 
Roger Rubbish' van SpectraVideo en na 
het uitproberen hiervan werkte het 
programma probleemloos vanaf de schijf. 
Een tweede machinetaalroutine, die de 
moeite van het vermelden waard is, is een 
z.g. scroll-routine". U heeft vast wel 
eens van die spelletjes gezien, 
geschreven in machinetaal, die het gehele 
beeld lieten bewegen. Met de reeds 
genoemde scrollroutine komt deze techniek 
dus ook binnen het bereik van een wat 
breder publiek. Al met al is het boek 
voor de MSX-er die wat meer wil dan 
alleen BASIC de moeite waard. 

De prijs van dit boek bedraagt fl. 34,50 

DIT IS GOED FOUT 

MSX DISK HANDBOEK 

Nu eens geen boekbespreking, maar een 
correctie op een erstige fout in het MSX 
DISK boekje van A.C.J. Groeneveld. Wie met 
diskdrives werkt zal bijna altijd, RANDOM 
files gebruiken. Dit is n.1. de grote 
kracht van het werken met diskettes. Deze 
kracht wordt vrijwel teniet gedaan door de 
beweringingen op pagina 76. Hier zouden 
RANDOM files n.1. altijd een lengte hebben 
van 256 bytes.Op deze pagina, en ook 
verder in het boek, wordt de LENGTE van 
het te openen bestand echter vergeten op 
te geven. 

De instruktie hoort er als volgt uit te 
zien: 

OPEN(naam)AS #(nr)LEN=(lengte) 

Na LEN= komt de lengte van het record; 
min.1 max.255. Deze lengte is gelijk aan 
het totaal van de lengte van de FIELDS . In 
het voorbeeld op pag. 76 kan hier dus 
rustig LEN=1 worden opgegeven en na RUNnen 
van het programmaatje zal als lengte (LOF) 
dan ook 10 worden gegeven, en geen 2560!! 
Even met rood aantekenen!! 
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Hallo allemaal, 

De afgelopen weken heb ik m'n hart kun¬ 
nen ophalen, want de softwarefabrikanten 
hebben ons verwend: het ene adventure na 
het andere komt op de markt en daaronder 
erge leuke. Bijvoorbeeld net uit van 
Level 9: "The Secret Diary of Adrian 
Mole Aged 13 3/4” naar het boek van Sue 
Townsend. Weer eens iets heel anders, 
maar daarover zal ik het volgende keer 
hebben. Ik raad iedereen aan eerst het 
boek te lezen, want anders denk ik niet, 
dat er veel aan is om het spel te spe¬ 
len. Verder zijn er Konami adventures in 
bestelling en er is een nederlandstalig 
avontuur in aantocht. De naam ben ik 
kwijt, maar het bijbehorende plaatje, 
dat men mij liet zien, zag er schitte¬ 
rend uit. 

Voor deze uitgave heb ik een aantal 
adventures te bespreken, maar eerst even 
terug naar het vorige nummer. Een paar 
leuke reakties gehad op het idee de 
rubriek uit te breiden met tips en de 
eerste tips, die ik kreeg, kwamen van 
iemand met een Amstrad computer en had¬ 
den betrekking op Red Moon. Wat de 'pool 
of acid' betreft is de zaak opgelost, de 
munten heb ik nog steeds niet; ik weet 
wel wat ervoor nodig is, maar niet wat 
ik er precies mee moet doen. Dit alles 

i f j? iet 20 n P unt > want Je kunt het 
einddoel toch wel bereiken, ondanks het 
feit dat je niet alle problemen hebt 
opgelost. Ik ben er nu van afgekomen met 
963 punten van de 1000 als "Senior Ad- 
venturer', Baskalos is bevrijd en ik 
vind het wel mooi zo, want er valt nog 
heel wat te doen. 



WORM IN PARADISE 

Als eerste spel voor dit nummer maar 
weer een produktie van Level 9 en vol¬ 
gens mij worden die programmeurs daar 
steeds geschifter, maar dan in de bril¬ 
jante zin van het woord. "Worm in Para- 
dise' is het vervolg op "Return to Eden" 
en echt iets voor de gehaaide avontu¬ 
riers. Een noviteit bij dit spel is de 
uitbreiding van de commando"s: er kunnen 
hele zinnen opgegeven worden, waarbij 
opdrachten ook gecombineerd mogen worden 
ingevoerd. Bijvoorbeeld: "Go EAST (=E), 
LIGHT_ LAMP AND GET AMULET" (Dit komt 
niet in het spel voor). 

Laat ik het hoge woord er maar meteen 
uitgooien: ik snap er geen jota van! Het 
begin is nog wel duidelijk. Je loopt in 
een paradijselijke tuin rond, doet iets 
stoms en de worm komt vrij om aan zijn 
verwoestende veldtocht te beginnen. Na 
een bepaalde tijdslimiet kom je dan 
ineens in de stad Enoch terecht, waar 
alles om draait, waarna de ellende be¬ 
gint . Dingen, die je vindt, kun je niet 
gebruiken. Je krijgt zelfs een boete van 
de robotpolitie, als je iets bij je 
hebt. Konstant word je geconfronteerd 
met kleurcodes, die -naar ik aanneem- op 
de een of andere manier toegepast moeten 
worden en het einddoel schijnt dan te 
zijn, dat je een opblaasbare Kim Kimber- 
ley te pakken moet krijgen om de boel te 
redden. Dat pakken is niet zo"n pro¬ 
bleem, maar dan slaat de politie weer 
toe en kun je naar het ziekenhuis om je 
ledematen te laten amputeren teneinde je 
boete te betalen. Je kunt ook nog een 
robothondje kopen, dat dient te helpen, 
maar daar heb ik tot nu toe niet veel 
aan gehad. Het enige leuke, wat ik ben 
tegengekomen, is een een-armige bandiet, 
die aardig wat geld kan opleveren, als 


42 









Beeld * * * * 
Geluid 

Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie * * * * 
Prijs * * * * 

***** ZEER goed 

**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 


SPECIAL OPERATTONS 

M.C.Lothlorien is de ontwerper van dit 
s P e » dat voor een prijs van slechts fl. 
29,50 door Aackosoft in Nederland is 
uitgebracht• En ‘ik moet zeggen! dit is 
een heel aardig spel, vooral voor die 
prijs. Het geheel speelt zich af in de 
2e Wereldoorlog en het is de taak van de 
speler om als commandant van een groepje 
specialisten een Duits kamp binnen te 
dringen en daar allerlei saboterende 
maatregelen te nemen. De groep moet 
iedere keer opnieuw worden samengesteld 
en je moet heel goed opletten, wie je 
waarvoor nodig hebt. De weg naar het 
kamp leidt door een bos, waar zich van 
alles bevindt: huizen, meertjes en grot- 
ten » waar allerlei bruikbaar materiaal 
te vinden is. Maar af en toe kom je ook 
een Duitse patrouille tegen en dan is 


je hem doorhebt. Kortom: een zeer door- 
utii fPel voor mensen, die daar een 
heleboel tijd aan kunnen besteden. Dus 
lang plezier van je fl. 49,50. 


M.C, UOTHLgfiUEN 
.Presents 

°PeraUons 
MSX Wars ion by 
PhD 


het vechten geblazen. 

zijn 7 opdrachten uit te voeren, 
waarvan nr.1 de eenvoudigste is. De 
eerste drie heb ik nu achter de rug en 
voor de vierde heb ik een paar tips 
gekregen van een andere beller, dus dat 
ga ik gauw eens uitproberen. 

Leuk spel dus, maar ook een paar minpun¬ 
ten. Waarschijnlijk was het voor Aacko¬ 
soft teveel moeite om voor die prijs een 
Nederlandse handleiding te leveren en 
men maakt er zich van af met een heel 
beknopt beschrijvinkje op het omslag van 
het cassettedoosje. De eigenlijke hand¬ 
leiding is in het Engels, maar die is 
wel gedetailleerd. 

Verder is het mij een keer gebeurd, dat 
ik het hele spel op tilt gooide door een 
beetje wild op de toetsen te rammen. Het 
hele beeld verschoof daarbij aan alle 
kanten en bij een poging de boel te 
herstellen kwam op een gegeven ogenblik 
zelfs de hele listing te voorschijn. Als 
je dus een beetje kwaad of ongeduldig 
wordt, schop dan een keer tegen de ta¬ 
felpoot, schreeuw tegen een argeloze 

voorbijganger of. maar sla nooit te 

hard op je toetsenbord, want dan kun je 
opnieuw beginnen en het laden van die 
cassettes duurt al zolang, nietwaar? 

Over lang duren gesproken: wat ik ook 
een nadeel vind, is dat het spel vrij 
traag is. Alles bij elkaar genomen is 
het echter toch een spel, waarvan je 
lang plezier kunt hebben en dat -zoals 
gezegd- weinig kost. 



Beeld * * * 
Geluid* * * 
Spelkwaliteit* * * * 
Foutafhandeling 
Gebruiksgemak 
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Prijs* * * * * 

***** ZEER GOED 
.***-* GOED 
*** REDELIJK 
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KNIGHT LORE EN ALIEN 8 


Buiten Filosoft eindelijk een fabrikant, 
die ons zelf wat software toestuurde om 
te beoordelen in de MSX-Gids. U.S.Gold 
Ltd. uit Birmingham is waarschijnlijk 
wat slimmer dan de rest en houdt er 
rekening mee, dat er naar software die 
beschreven wordt in welk computerblad 
dan ook, onmiddellijk vraag is in de 
winkels, zoals wij van verscheidene 
winkeliers gehoord hebben. 

Het gaat hier om de langverwachte Ulti- 
mate adventures, die inmiddels ook op de 
Nederlandse markt verkrijgbaar zijn voor 
fl* 49, per stuk. De verpakking is erg 
fraai, maar het meest bijzondere zit hem 
in de spellen zelf, want die zijn drie¬ 
dimensionaal en dat is wel even wennen. 
Je weet af en toe niet, welke kant je 
opmoet. De grafische uitvoering is vrij 
simpel en wij vinden eigenlijk, dat je 
maar een van de spellen hoeft te kopen, 
want qua uitvoering zijn ze bijna het¬ 
zelfde. Bij Knight Lore ben je een weer¬ 
wolf, die een kasteel door moet om bij 
een tovenaar een drankje te vinden, 
zodat zijn vloek verdwijnt en bij Alien 
® zi.t je in een ruimteschip, waar je de 
boel draaiende moet zien te houden. 

Een beetje vreemd vinden wij het, dat 
beide cassettes, die rechtstreeks uit 
Engeland komen, niet willen laden op de 
JVC computer, die eveneens Engelse im¬ 
port is. Het is daarom mogelijk, dat 
op andere 'import-dump—computers' dit 
spel ook niet te spelen zal zijn. 
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Spelkwaliteit * * * * * 
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***** ZEER GOED 
**** GOED 
*** REDELIJK 
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SORCERY 


Aackosoft overtreft zichzelf: alweer een 
goed spel, dat door deze firma in Neder¬ 
land is uitgebracht. Oorspronkelijk is 
het een produktie van het Engelse Virgin 
Games Ltd. Sorcery kost op cassette fl. 
39,50 en voor die prijs kon er wel een 
Nederlandse handleiding van af. Dit spel 
valt onder de categorie 'arcade adven¬ 
tures en dat betekent, dat alles snel 
moet gaan. Je tijd is beperkt en wordt 
aangegeven door een boek, dat steeds 
kleiner wordt en in die tijd moet je een 
hoop doen: in een kasteel van de ene 
kamer naar de andere vliegen, de juiste 
dingen verzamelen om 8 tovenaars te 
bevrijden, aangevallen worden door los¬ 
vliegende of —lopende engerds, je verde¬ 
digen, alles in een razend tempo. Gra¬ 
fisch een schitterend spel: elk van de 
50 schermen verschillend van opbouw in 
heel mooie kleuren. 

Eigenlijk verder niet veel over te ver¬ 
tellen. Over zo'n spel moet je niet 
lezen, je moet het spelen. 


Beeld * * * * * 
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Software 

3 

NOGMAALS: 

64 TEKENS OP EEN REGEL 

Naar aanleiding van onze opmerkingen 
over dit programma in gids nummer 2 is 
het programma verbeterd en wordt het 
ook met een uitvoerige, en 
handleiding geleverd. 


nu 

correcte. 


NOGMAALS: 


TASWORD 


Ook hier zijn de door ons opgemerkte 
fouten gecorrigeerd. Er wordt door 
Filosoft gewerkt aan een Tasword voor de 
MSX-2. 

Tasword is nu dusdanig dat de redaktie 
en de vaste medewerkers dit programma in 
gebruik hebben genomen voor het 
verwerken van het grootste gedeelte van 
de tekst. 



SHARK HUNTER 

Shark Hunter is geen nieuw spel, maar 
wel leuk. Het verhaalt speelt zich af in 
de poolstreek waar een eskimo ziin 
visnetten moet beschermen tegen 
ijsschotsen en haaien. Kapotte netten 
kunnen gerepareerd worden maar tijdens 
dat repareren gaan de haaien en de 
ijsschotsen uiteraard gewoon door met 
hun vernielende werk. Zeker geen 
eenvoudig spel. Level 1 is al behoorlijk 
lastig. Het gooien -met speren- naar de 
haaien is een beetje frustrerend daar er 
alleen gedraaid kan worden in hoeken van 


45 graden. Beeld en geluid zijn best 

F? r fq g nn n 6r ? oor de P ri J s van 

Fl.49,00 , een heel leuk spel geleverd. 
(Electric software; cassette) 


Beeld» * * * 
Geluid» » * * 
Spelkwaliteit* * * » 

| Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 
Prijs* * * * 


***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

I * SLECHT 



HOLE IN ONE PROFFESSIONAL 

Dit is een subliem spel voor de golf- 
fanaten. Het spel zelf is vrijwel gelijk 
als het vorige HOLE IN ONE. Het grote 
verschil zit in de constructieset. 
Hiermee kunnen eigen velden ontworpen 
worden. Alles wat in de standaard velden 
zit kan worden gebruikt. Zo kunnen 
lasige banen worden ontworpen 
met veel water, bomen, huisjes, zijwind 
enz. enz. 

Het programma wordt geleverd op 
cartridge en de beelden zijn uitstekend. 
Uiteraard zit er niet veel geluid bij. 
Alles is menu—gestuurd en erg gebruiks¬ 
vriendelijk en dat is maar goed ook 
want de handleiding is in het Japans 
geschreven (ja, ja, echt waar!). 
Gelukkig is het Japans al net zo 
doorspekt met Engelse worden als de 
Nederlandse taal dus er is nog aardig 
uit te komen. 

Als je van golf houdt is dit een echte 
topper! De prijs is Fl. 95,00 en dat 
vind ik toch wel wat aan de hoge kant. 

De cartridge is van HAL Laboratory. 

Beeld* * * * * 

Geluid* * * * 

Spelkwaliteit* * * * * 

Foutafhandeling 

Gebruiksgemak 

Documentatie* 

Prijs* * * 















































3-D KNOCKOUT 


Boksen tegen de computer, met de cursor- 
toetsen (ondanks dat in de handleiding 
staat dat het spel alleen werkt met een 
joystick), met zeer matige beelden en 
geluiden en met een zeer zwak programma 
zodat, wanneer je weet op welk moment je 
het beste kunt slaan, je aan een stuk 
door alle rondes wint. 

Nee, dit heb ik wel eens beter gezien. 
3-D Knockout is van Alligata Software en 
staat op cassette; de prijs is Fl. 39,00 


Beeld * * * 
Geluid* * * 
Spelkwaliteit* * 
Foutafhandeling 
Gebruiksgemak 
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***** ZEER GOED 
.**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 



RAID ON BUNGELING BAY 


Dit is weer eens een spel volgens het 
bekende recept. Opstijgen en landen met 
een helicopter en al schietend en bommen 
werpend over het (scrollende) beeld 
manoevreren. De besturing is een beetje 
lastig een de beelden bewegen -ook weer 
een beetje- schokkerig. 

De kwaliteit van de beelden is echter 
prima en ook de geluiden zijn goed. Ook 


hier gaat het draaien weer alleen in 
hoeken van 45 graden; wat soms wel 
lastig is. Een moeilijk en mooi spel wat 
toch eerst eVen, b.v. in de winkel, 
bekeken met worden want het is een spel 
uit de serie 'dertien in een dozijn' en 
dit soort spellen lijkt erg op elkaar. 
Het spel wordt op cartridge geleverd 
door Sony en de prijs is Fl. 69,00. 


Beeld * * * * 
Geluid * * * * 
Spelkwaliteit* * * * 
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***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 



JUMP JET 

Jump Jet is een flightsimulator rond de 
'Sea Harrier'. Dit is een Engels 
gevechtsvliegtuig dat vertikaal kan 
opstijgen en landen en dat recentelijk 
nog in de belangstelling heeft gestaan 
tijdens de Falkland—oorlog tussen 
Engeland en Argentinië. 

Dit spel begint dan ook op een 
vliegdekschip en het is de bedoeling, 
met behulp van de instrumenten, op te 
stijgen, de vijand te lokaliseren en te 
vernietigen, en weer te landen. Er zijn 
5 niveau's die variëren van een 
oefenronde met kalm weer tot een 
moeilijke ronde met veel vijandelijke 
vliegtuigen en zeer slecht weer met 
storm. Landen, opstijgen en vliegen 
moeten geregeld worden met de motoren, 
en diverse kleppen aan de romp en de 
vleugels van het toestel. Verder moet 
bijna alles met behulp van de radar 
gedaan worden. Pas als b.v. een 
vijandelijk vliegtuig gezien kan worden, 
kan zonder radar worden gewerkt. 
Uiteraard is de voorraad brandstof en 
munitie beperkt. 
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Jump Jet is een lastig spel dat 

grafisch goed verzorgd is en dat garant 
staat voor vele uren speelplezier. De 
piuiden zijn ook goed maar de 

handiexdmg is niet in het Nederlands, 
ar zijn meer van dit soort spellen, maar 
daar dit mijn eerste is, kan ik geen 
ergelijking maken. De prijs is ook 
redelijk (Fl. 49,00) en het spel wordt 
door Amrog Software geleverd op 

SlUeU. DeZe CaSSe “ e is v “ " rlM 
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HOPPER 

Hopper is geen nieuw spel, maar het 
bekende FROGGER' dat inmiddels voor 
vrijwel alle computers leverbaar is. 
Weer eens een klassieker uit de 
automatenhallen die het altijd blijft 
doen; bij jong en oud. 

De bedoeling • is, om met een kikker, een 
rijweg over te steken en vervolgens een 
rivier. Elke ronde wordt moeilijker en 
het spel is behoorlijk verslavend. Net 
als b.v. 'Packman' hoort dit spel bij 
iedere spelfanaat in het rijtje te 

staan. Om de prijs hoef je 
laten liggen: slechts Fl. 
deze cassette van Aackosoft. 

Wel even opletten: Dit spel draait niet 
op iedere MSX machine; en in ieder geval 
met op de JVC HC7GB. 


het niet te 
29,50 voor 


Beeld * * * * 
Geluid * * * * 
Spelkwaliteit ****■ 
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* * * * * 


***** ZEER GQED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 



OH SHIT! 

Dit is dan de nieuwe naam voor de aloude 
Packman. De enige echte, zoals hij nu 
nog steeds in de speelhallen te vinden 
is. Het spel komt van Aackosoft en is 
™ h6t C P e 'Talkie'; met spraak dus. 
Deze spraak, die snel gaat vervelen, is 
wel ten koste gegaan van de originele 
wokka-wokka geluiden. Jammer. Wat moet 
j hier nog verder over schrijven? Ik 
denk dat iedereen 'Packman' inmiddels 
"® 1 ,. kent * ?eze cassette is weer extra 

aanschaffen, ^ 1 * 29 - 5 °>. «- 8-oon 
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LOGO 
CENTRUM 
F D E 



nieuw: programmeren in het Nederlands met LOGO 


wat is logo ? 

LOGO: DE ALTERNATIEVE NEDERLANDSE COMPUTERTAAL. 


Het is niet bekend bij hoevelen de home-computer al weer op zolder ligt omdat de spelletjes 
vervelen en BASIC toch moeilijker blijkt dan door de reclame wordt gesuggereerd. Maar er 
is een alternatief waar tot voor kort nogal schamper over werd gedaan: LOGO. LOGO staat 
vooral bekend als een taaltje waarmee kinderen leuke plaatjes op het scherm kunnen 
tekenen. Dat is waar, maar ook de helft van de waarheid. LOGO is de meest krachtige 
taal die er op dit moment beschikbaar is voor home-computers. Krachtig wil in dit 
verband zeggen dat je je minder hoeft bezig te houden met de problemen van de taal zelf en 
je je meer kunt concentreren op het probleem watje met de computer wilt oplossen. 
Daarenboven: je hoeft je niet met de computer bezig te houden om te kunnen 
programmeren. De computer is er vooral om onze alledaagse en minder alledaagse 
problemen sneller op te lossen dan tot voor kort. Voor de meeste van die problemen 
bestaan al lang de mooiste en minder mooie programma's. Het is goed dat iedereen 
leert snijden, maar slechts enkelen hoeven chirurg te worden. Wat wel 
plezierig is, is je alledaagse probleem zo te kunnen analyseren cn formuleren dat daarvoor 
door ervaren programmeurs makkelijker een maatgesneden programma kan worden 
geschreven. Dit analyseren vereist een beter kunnen denken. LOGO beoogt het leren 
beter te denken. Dat de uitvinder , Seymour Papert daarbij kinderen voorop stelde is 
vrij logisch. Wie de jeugd heeft de toekomst Kinderen zijn nog oorspronkelijke denkers. 
Maar hun eigen en vaak afwijkende kijk op de werkelijkheid, zoals zij die ervaren, wordt 
door volwassenen meestal snel onderdrukt Zo wordt het kind van denker tot meedenker. 
LOGO probeert het oorspronkelijke denken juist aan te moedigen. 

Kinderen leren de wereld kennen door hun omgeving te manipuleren. Hun 
taalontwikkeling is een antwoord op nieuwe situaties. Op een oorspronkelijke vaak 
verwarrende wijze geven ze hieraan uiting. Dit afwijkend gedrag wordt vaak weggelachen 
en zo snel mogelijk vervangen door en uitleg van onze volwassen 'waarheid'. Naarmate dit 
steeds vaker door het kind wordt ervaren, past het ervoor telkens te worden terecht 
gewezen. Daarmee wordt de drang naar origineel denken onderdrukt en is faalangst 
ontstaan. Van een onafhankelijk denker is het kind verworden tot een meedenker. De 
interne woede daaromtrent zal zich nog een tijdje uiten in de puberteit, ma^r ook die gaat 
voorbij nietwaar ? Er is een alternatief: LOGO. Bij LOGO wordt het origineel 
creatieve denken aangemoedigd. Alles wat afwijkt van wat eigenlijk de bedoeling 
was, levert een onmiddellijkc leerervaring op, waardoor je je verrijkt voelt. Bij LOGO 


wordt je voor "fouten" niet bestraft, daar hoefje dus ook niet bang voor te zijn. Je hoeft er 
dan ook geen energie in te steken om dat te voorkomen. Daardoor ben je beter 
geconcentreerd. In de LOGOwereld leren kinderen vanzelf begrijpen waarom de wereld op 
een bepaalde manier in elkaar zit. Wis- en natuurkundige principes worden langs geheel 
natuurlijke weg duidelijk en inzichtelijk. LOGO is vooral ook leuk. En wat leuk is 
wordt beter geleerd en onthouden en moedigt aan verder te gaan. Zo wordt de creativiteit 


van kinderen niet gesmoord, maar wordt een intellectueel klimaat geschapen, dat minder 
beheerst wordt door de criteria van goed en fout, van waarheid of onwaarheid. Wat maakt 
LOGO nou zo speciaal ? Het is een soort elektronische zandbak, een knutseldoos van 
lijnen, hoeken, bogen , kleur, snelheid, richting, noten en woorden. Het is een nog 
kneedbare machine. Met een aantal basisbegrippen leren we de LOGOcomputer steeds 



weer nieuwe oegnppen aie we weer geDruixen voor weer nieuwe: gemoauieera 
programmeren. Elke afgeronde module kun je gebruiken in een volgende module. Met 
LOGO ontdek je dat complexe dingen niet meer zijn dan een samenstel van 
heel simpele dingen. Niet alleen voor kinderen is dat een openbaring maar ook een 
uitdaging. Met LOGO begin je alleen heel simpel, zo simpel dat er geen drempel is. Er is 
ook geen plafond, hooguit de eigen creativitet of de capaciteit van de computer. Dat LOGO 
al door jonge kinderen gebruikt kan worden wil niet zeggen dat het een kindertaaltje is. 
Integendeel, het is afgeleid van LISP en aangevuld met veel grafische mogelijkheden en 
muziek. LOGO voldoet ook aan alle eisen die informaticadeskundigen op dit moment aan 
een programmeertaal stellen. Dat is niet zo verwonderlijk. LtL Basic werd LOGO pas 
bedacht nadat we wisten wat programmeren feitelijk is. LOGO is een taal om beter te 
Ieren denken. Het is door de ontwerpers bedoeld als een alternatief voor de overhoor- en 
lesmachines, die de leerling hoofdzakelijk voorgeprogrammeerde terugkoppeling en 
toetsen voorschotelen. Met andere woorden: oude wijn in nieuwe zakken: de leerling 
wordt gedwongen aan zekere normen te voldoen en daardoor fouten te maken. De 
belangstelling om iets te leren blijkt vooral bepaald te worden door een toenemende 
ervaring iets goed te doen. Wat je bij LOGO ook doet, het is nooit fout. Wat fout 
is bepaal je zelf. Een omgekeerde relatie dus. De leerling is de norm: hij onderwijst de 
computer en daardoor zichzelf. Hij leert voor zichzelf problemen formuleren en oplossen, 
en tegelijkertijd doet hij ervaring op met de nieuwe technologie. Hij leert tevens wanneer de 
computer niet moet worden gebruikt Centraal idee achter LOGO is de computer 
als leeromgeving, zoals de straat dat is voor de ontwikkeling van de taal. In de 
elektronische LOGOcomputer kan men grasduinen tussen woorden, letters, vormen 
klanken enz. 

Een echt LOGOsysteem kent vier werelden: 

1. De (schildpad-) tekenwereld: Pjoeter , een soort schildpad wordt met eenvoudige 
commando's over het scherm gestuurd, om het dier de crcatieftse ontwerpen te laten 
maken. 

2. De wereld van de klonen. Aan de schildpad identieke wezentjes (ook zelf te 
ontwerpen), waarmee gemanipuleerd kan worden in kleur, snelheid, richting enz. 

3. De muziekwereld: het spelen met noten en tonen. 

4. De woordwereld: het manipuleren van informatie: cijfers, letters en woorden. En dat 
op een interactieve manier. 

Elke wereld bestaat uit een aantal bouwstenen waarmee de computer nieuwe woorden kan 
worden geleerd, die weer gebruikt kunnen worden. 

LOGO vervangt ook geen leerkrachten. LOGO geeft leerkrachten mogelijkheden het 
onderwijs te moderniseren en op peil te houden, want er is alle ruimte voor meer begaafden 
en het heeft alle tijd voor de wat zwakkere. Voor de Commodore 64 is bij Malmberg een 
vertaalde versie beschikbaar. De LOGO Stichting Nederland werkt in Nijmegen aan een 
hoogwaardig origineel Nederlands alternatief, wat t.z.t ook ter beschikking komt voor 
Apple IBM enz. Maar nu er sinds kort een volledig Nederlandse (MSX) versie 
beschikbaar is, (Philips) is het ideale leermiddel binnen ieders bereik.Oefenmateriaal en 
lesboeken zijn reeds beschikbaar. Niet alleen voor kinderen ,maar voor ieder die Basic niet 
meer ziet zitten zal LOGO een openbaring zijn. En in het bejaardentehuis hoeft niet alleen 
maar gekaart te worden. Ook geeft LOGO vrouwen en meisjes alle kansen om hun eigen 
informatica-knobbel te ontdekkken.Voor verdere informatie kan men terecht bij het 
LOGO CENTRUM EDE : 08380-21306. Daar wijst men u ook de weg naar de LOGO 
zomerkampen van de Stichting LOGO K uit Zwolle. 

Nijmegen, januari 1986, W JLTh. Heijster 
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LOGO: DE STAND VAN ZAKEN 



Nederlandstalig vereis • 

WenlTeT® L ° 9 ° V °° r * Commodore <* Vertaalde Engelse versie, en daarom niet helemaal 

Enqelstaline yprcioc- 

Voor Apple IBM BBC Acom Sharp enz. 

Bij de STversies van Atari en bij Schneider wordt Dr.LOGO standaard bijgeleverd. 
Oefenmateriaal- 

Voor al deze LOGO'S zijn oefenAverkboekjes beschikbaar voor leerlingen vanaf 7 jaar. 
Literatuur: 

?SSïï SSZSSSiSSSiSSSS"^ 

buiten,ancl verschijnen steeds meer publicaties over LOCO 

Ha " ey: ^ s ™°** 

w h ™ u"-£*" , V ^ a I 12 Jaar versc hij’nt binnenkort: 

Uilgave. Utgave LOGOCENTOLMEre° Doe ‘ t,oek v00fde Msx en LCN Logo's in een losbladige 
VERDERE INFORMATIE 

''f!^ “** LOGOw »eld. nieuwe boeken, fcegepast LOGO enz • 

Mm Jl u l 9et ï?' d overzrcht van beschikbare literatuur, toeraMLOGOe^f- 
' Mm !:l! f'® sl i st van Logologen bij u in de buurt. ^ ° e " Z " 

G?o& n tSc| V ^k^o.vv. S^: 5 ° V °° r S,k V0,9Snd in, °' 



LOGO CENTRUM EDE 
Annadaal 96 
6715 JC Ede 
Tel. 08380-21306 
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Beeldscherm: WIDTH 36 


Hier nog 3 spelletjes van Rene Kluwen uit 
Rotterdam, ten dartspel, het overbekende 
Galgje en Wurm. Ale drie eenvoudige, maar 
altijd leuke spellen. Bij Wurm is, in 
verband met de grafische tekens, de gehele 
breedte van het papier gebruikt en niet, 
zoals gewoonlijk, een indeling in 
kolommen. Gewoon doortikken dus. Bij 
programma’s waarin de gra-fische tekens 
<CHR$(31) en lager) worden gebruikt is het 
erg moeilijk de listings in kolommen in te 
delen daar de computer voor deze tekens 2 
i.p.v. 1 teken aan de printer doorgeeft 
zodat, bij kolommem, er vreemde ’gaten’ in 
de listing optreden die door de lezers als 
spaties zullen worden overgenomen. 


Beeldscherm: WIDTH 36 


10 CLS: PRINT "Speel niveau -£1-93- ? " 

* 

20 S=VAL<INPUT*(1)):IF S=0 THEN 20 
30 COLDR 15,6,1:SCREEN 2:OPEN "GRP:" 

FOR OUTPUT AS #1 
40 LINE (0,0)-(255,10),1,BF 
50 LINE (0,17B)-<255,192),1,BF 
60 LINE (35,40)-(38,60),1,BF 
70 PRESET (2,50):PRÏNT#1,10*5 
80 LINE (35,60)—(38,70),2,BF 
90 PRESET (2,65):PRÏNT#1,30*S 
100 LINE (35,70)—(38,75),3,BF 
110 PRESET (2,72):PRINT#1,50*S 
120 LINE (35,75)-(38,85),2,BF 
130 PRESET (2,80):PRINT#1,30*S 
140 LINE (35,85) — <38,105),1,BF 
150 PRESET (2,90):PRÏNT#1,10*S 
160 C(1) = 10;C(2)=30:C(3)=50:C(4)=0: P 
=6 

170 PSET(70,0),1:PRINT #1,"DART-SPEL 

180 PSET(20,180),1:PRINT #l,"SCORE: 
0" 

190 PSET<120,180),1:PRINT #1,"PIJLEN 
: 6 " 

200 SPRITE* < 0)=CHR*(12)+CHR*(18)+CHR 
*(34)+CHR*(255)+CHR*(34)+CHR*(18)+CH 
R*(12) 

210 SPRITE*(1)=CHR*(32)+CHR*(69)+CHR 
*(255)+CHR*(69)+CHR*(32) 

220 Y=9:RY=S 

230 PUT SPRITE 0,(200,Y),1 
240 IF STRIG(l) THEN 280' 

250 IF Y>=165 OR Y<=8 THEN RY=-RY 
260 Y=Y+RY 
270 GOTO 230 
280 P=P-i 

290 LINE (180,180)-(200,190),1,BF 
300 PSET (180,180),1:PRINT #1,P 
310 FOR X=200 TO 38 STEP -1 
320 PUT SPRITE P+l,(X,Y>,15,1 
330 NEXT X 

340 C=C(POINT(X,Y+2)) 

350 IF C=0 THEN'410 
360 SC=SC+C*S 

370 LINE (70,180)-(90,190),1,BF 
380 PSET (70i180),1:PRINT#1,SC 
390 IF P=0 THEN 470 
400 GOTO 220 

410 FOR X=37 TO -8 STEP -1 
420 PUT SPRITE P+l,(X,Y),15,1 
430 NEXT X 

440 PUT SPRITE l,(-8,-8) 

450 IF P=0 THEN 470 
460 GOTO 220 
470 SCREEN 0 

480 PRINT "U had";SC;"punten." 


10 ’ 

20 ’ GALGJE 

30 ’ - 

40 ’ 

50 B*="":CLS:KEYOFF:LOCATE 2,6:PRINT 
"WOORD ? "! 

60 A*=INPUT*(1):IFA$=CHR$(13)THENC*= 
B*:GOTO100 

70 IFA*=CHR*(8)ANDB*< >""THENPRINTCHR 
*(127) *, :B*=LEFT*(B*,LEN(B*)-1) 

80 IFA* >="a"ANDA*< = " z "THENA*=CHR*(AS 
C <A*)-32) 

90 IFA*<"A"ORLEN(B*)>180RA*>"Z"THEN6 

0ELSEPR INT"*"::B*=B*+A*:GOTO60 

100 COLOR 15,7,7:SCREEN 2 

110 OPEN "GRP:" FOR OUTPUT AS #1 

120 LINE (40,10)-(200,150),4,BF 

130 PRESET (50,20),4:PRINT#1,"GALGJE 

140 L=LEN(B*):N=62:J=0:K=0:M=0 
150 FOR 1=1 TO L 
160 PSET (42+1*8,60) 

170 NEXT I 

180 A*=INPUT* <1):H=0:IF A*< = " " THEN 
180 

190 FOR 1=1 TO L:IF A*=MID*(B*,I,1) 
THEN H=H+1:PRESET (40+1*8,50),4:PRIN 
T# 1, A*: li ID* (B*, I, 1)=" ": PSET (42+1 *8, 
60), 4 

200 NEXT I:IF H=0 THEN 230 
210 J=J+H: IF JOL THEN 180 
220 GOTO 390 

230 K=K+1:ON K GOSUB 270,280,290,300 
,310,320,330,340,350,360;370,380 
240 IF K MOD 3=0 THEN M=M+8:N=70 ELS 
E N=N+8 

250 PRESET (120+M,N),4:PRINT#1,A* 

260 GOTO 180 

270 LINE (70,85)-<70,130),1:RETURN 
2B0 LINE (70,85)-(85,85),1:RETURN 
290 LINE (65,130)-(80,130),1:RETURN 
300 LINE (70,100)-(75,85),1:RETURN 
310 LINE (85,85)-(85,95),ï:RETURN 
320 CIRCLE (85,99),4,1,,,1.4:RETURN 
330 LINE (85,103)-(85,105),1:RETURN 
340 CIRCLE <B5,112),7,1,,,2:RETURN 
350 LINE (83,107)-(79,105),1:RETURN 
360 LINE (87,107)-(91,105),1:RETURN 
370 LINE (83,117)-(80,123),1:RETURN 
380 LINE <B7,117) — (90,123),1 
390 COLOR ,,1 
400 FOR 1=1 TO 10 

410 LINE (48,50)-(4B+L*8,58),4,BF 

420 FOR J=1 TO 50:NEXT J 

430 PRESET (50,50),4:PRINT#1,C* 

440 FOR J=1 TO 100:NEXT J 
450 NEXT I 

460 CLOSE:SCREEN 0:COLOR 15,4,4:GOTO 
50 


OUDE NUMMERS MSX-GIDS 

WE HEBBEN NOG WAT EXEMPLAREN VAN DE MSX- 
GIDS NR.1 KUNNEN ACHTERHALEN! 

ALLE DRIE DE VORIGE NUMMERS ZIJN DUS NOGi 
NA TE BESTELLEN DOOR OVERMAKING VAN FL. 
7,95 (PER NUMMER) OP GIRO: 5036011 T.N.V. 
J.HERPS, AMSTERDAM. TEL. 020-327464. 


50 









10 CLSskEY OFF:WIDTH 40:DEFINT A-Z 
20 ON STOP GDSUB 1500:STOP ON 
30 LOCATE 0,9:Y=9 
40 PRINTTAB(Y);"O 0 O 
50 PRINTTAB<Y>s"O O O 
60 PRINTTAB(Y);"O O O 
70 PRINTTAB(Y);"O O O 
80 PRINTTAB(Y):"O OOO 
90 PRINTTAB<Y);"O 000 
100 PRINTTAB(Y>;"O 000 

1 i r.i D&TK»TTAr.yw, J .. - _ 


0 0000 o O" 
00 O 00 00" 
00 0000" 
O 0000 O O O" 
O 00 0 0 

0 0 0 o 
0 0 0 0 


O" 

O" 

0 ,, 


Izl prJSÏ^hrÏcSÜ 0 ° 000 0 9 0 

1“ PRINT:PRINT*"°?oe?sSS tiebalk VOOr CUI ' 5 ° r -" 

|| ^iN°^s,GOTO k s?g voor jo ^t.ck.-, 

Jort STRIG(l)—1 THEN SS=lsGOTO 290 

!ll ‘"JSS'SIT ; 1 then ss=2!G0T0 111 

POR + J=1 E TO^700: NEXT j =el!PRINT SPflCE* IBS» : GOTO 190 
PRINTTAB(I);” o 

PRINTTAB(I);" o 00" 

FOR J=1 TO 200:NEXT J 

0 5 19 5 PR I NT SPACE$ <80) 

LOCATE 0,20:1=1+2 
PR I NTTAB'( I ) ; " 000000" 

280 GOTO 160 

290 DIM X (60) , Y (60) 

300 CLS:WIDTH'37:RESTORE 
310 FOR 1=0 TO 8 

320 * /2=INT<I/2) THEN S (I) =2 ei cc c / t \ 

0-30 READ SX (I) , SY < I) ELSE S (I) 

340 NEXT I 
350 S(0)=3 

!“ pnI§ 0.1,1,0,1,-ï, 1,-1,0,-1,-1 


200 

210 

220 

230 

240 

250 

260 

270 


= 1 


380 FOR 1=3 TO 21 
390 LOCATE 2,I:PRINT"!" 

400 LOCATE 24,Is PRINT*I" 

410 NEXT I I 

420 FOR 1=2 TO 24 

430 LOCATE I,3:PRINT"—" 

440 LOCATE I,21:PRINT"-" 

450 NEXT I 

460 LOCATE 2,3:PRINT" r " 

470 LOCATE 24,3:PRINT t" 

480 LOCATE 2,21:PRINT"1" 

490 LOCATE 24,21:PRINT"J" 

500 LOCATE 13,12:PRINT"0" 

510 TI ME=0 
520 L=2 

530 LOCATE 25,4:PRINT"HOOGSTE" 
=£« f-OCATE 27, 6: PR INT" SCORE: " 
550 LOCATE 33,6:PRINT HP 

25 5 8: PR INT "LANGSTE" 

26 ’10#PRINT"LENGTE:" 

Pi X ° 1 13 33 ’ 10 5 PR1NTLL 

600 Y <1)=12 

610 XP=INT(RND(1)#20)+3 
620 YP=INT(RND(1) # 17)+4 
630 A*=STR*<INT<RND<1>*10)) 

640 PL=VAL(A$> 

650 LOCATE XP,YP:PRINT A$ 

660 IF 5000-TIME< =0 THEN 1290 
tZ™ L0CATE 25,14:PRINT "TIJD:" 

H2£ A J E 30 » 14:PRI NT 5000-TIME 
690 LET S=STICK(SS) 

££! E(S) G0SUB 730,770,720 
710 GOTO 660 
720 RETURN 
730 GX=SX(S> 

740 GY=SY(S) 

750 GOSUB 970 
760 RETURN 


C0NTR0LETELLIN6 

Regel: 10 - 116 Regel: 430 - 72 

Regel: 20 - 128 Regel: 440 - 88 
Regel: 30 - 235 Regel: 450 - 236 
Regel: 40- 11 Regel: 460-179 
Regel: 50 - 35 Regel: 470 - 200 
Regel: 60 - 244 Regel: 480 - 197 
Regel: 70 - 82 Regel: 490 - 218 
Regel: 80 - 244 Regel: 500 - 173 
Regel: 90 - 244 Regel: 510 - 203 
Regel: 100 - 244 Regel: 520 - 78 
Regel: 110 - 220 Regel: 530 - 137 
Regel: 120 - 177 Regel: 540 - 42 
Regel: 130 - 220 Regel: 550 - 238 

Regel: 140 - 34 Regel: 560 - 130 

Regel: 150 - 102 Regel: 570 - 110 

Regel: 160 - 118 Regel: 580 - 208 

Regel: 170 - 120 Regel: 590 - 198 

Regel: 180 - 122 Regel: 600 - 198 

Regel: 190 - 151 Regel: 610 - 113 
Regel: 200 - 40 Regel: 620 - 112 
Regel: 210 - 68 Regel: 630 - 2 

Regel: 220 - 236 Regel: 640 - 212 
Rege : 230 - 30 Regel: 650 - 197 
Regel: 240 - 68 Regel: 660 - 70 
Regel: 250 - 202 Regel: 670 - 253 
Regel: 260 - 87 Regel: 680 - 205 
Regel: 270 - 171 Regel: 690 - 130 
Regel: 280 - 7 Regel: 700 - 174 

Regel: 290 - 187 Regel: 710 - 77 
Regel: 300 - 147 Regel: 720 - 142 
Regel: 310- 29 Regel: 730 - 221 
Regel: 320 - 1 Regel: 740 - 223 

Regel: 330 - 190 Regel: 750 - 136 

Regel: 340 - 236 Regel: 760 - 142 

Regel: 350 - 184 Regel: 770 - 184 

Regel: 360 - 10 Regel; 780 - 136 

Regel: 370 - 158 Regel: 790 - 183 

Regel: 380 - 43 Regel: 800 - 136 

Regel: 390 - 70 Regel: 810 - 142 

Regel: 400 - 90 Regel: 820 - 1 

Regel: 410 - 236 Regel: 830 - 8 

Regel: 420 - 45 Regel: 840 - 124 


Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

tegel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 


850 - 190 
860 - 246 
870 - 138 
880 - 225 
890 - 223 
900 - 184 
910 - 50 
920 - 119 
930 - 253 
940 - 173 
950 - 183 
960 - 27 
970 - 46 
980 - 48 
990 - 116 
1000 - 64 
1010 - 66 
1020 - 238 
1050 - 245 
1060 - 248 
1070 - 73 
1080 - 221 
1090 - 237 
1100 - 251 
1110 - 154 
1120 - 142 
1130 - 1 

1140 - 247 
1150 - 59 
1160 - 142 
1170 - 75 
1180 - 153 
1190 - 22 
1200 - 66 
1210 - 127 
1220 - 75 
1230 - 187 
1240 - 136 
1250 - 235 
1260 - 181 
1270 - 146 
1280 - 22 













770 GX=0:GY=SY(S> 

780 60SUB 970 
790 GX=SX(S) :GY=0 
800 GOSUB 970 
810 RETURN 
820 GOSUB 1090 
830 FOR S=1T0 8 
840 0*="0"+STR*(S) 

850 PLAY"T200V15L16"+0$+"AFD" 

860 NEXT S 
870 L=L+1 
880 X <L)=X(L—1) — 1 
890 Y(L)=Y(L-1) 

900 PN=PN+PL 

910 LOCATE 25,18:PRINT"SCORE:" 

920 LOCATE 25,20:PRINT"LENGTE: " 

930 LOCATE 32,18:PRINT PN 
940 LOCATE 32,20:PRINT L 
950 LOCATE X7. (L) , Y7. (L) : PRINT"0" 

960 GOTO 610 
970 KX=X(L+KK) 

980 KY=Y(L+KK) 

990 FOR K=L TO 2 STEP -1 
1000 X (K)=X7.<K-1) 

1010 Y<K)=Y’/.(K-1> 

1020 NEXT K 
1050 X(1)=X(1)+GX 
1060 Y(1)=Y(1)+GY 

1070 IFX(1)=XP+1ANDY(1)=YPTHEN820 
1080 IFVPEEK((Y(1)#40)+X(1)+2)< >32THEN 1130 
1090 LOCATE X(1),Y<1)SPRINT"®" 

1100 LOCATE X(2),Y(2) :PRINT"0" 

1110 LOCATE KX,KY:PRINT" " 

1120 RETURN 
1130 GOSUB 1090 

1140 IF X <1> =2 OR X(1)=24 OR Y(1)=3 OR Y<1)=21 GOTO 1200 

1150 PLAY"T200O5V15L16CEGCEGCEGCEGCEGCEGCEGCEGCEGCEGCEGCEGCEGCEGCEGCEGCEG 
CEGCEG" • i U J* i geytfi i • oTt» Fgnaï* i «Tb «gf> ■*. 

1160 LOCATE 4,12:PRINT"STOMMELING," 

1170 LOCATE 4,14:PRINT"JE BIJT IN‘JE EIGEN " 

1180 LOCATE 4,16:PRINT"STAART!!!" 

1190 GOTO 1370 

1200 FOR H=15 TO 1 STEP -1 

1210 V$="V"+STR$(H> 

1220 PLAY"T200" 

1230 PLAY V* 

1240 PLAY"05L16C#EA" 

1250 NEXT H 

1260 LOCATE 3,12:PRINT"JAMMER,JE BENT TEGEN" 

1270 LOCATE 3,14:PRINT"DE MUUR AANGELOPEN!!" 

1280 GOTO 1370 
1290 PLAY"T200" 

1300 LOCATE 30,14:PRINT 0 

1310 Z*="L9V14Ö4C03B04CED#EGF#G05C04B05C" 

1320 Y*="L9V1304GF#GED#EC03B04CD03BG" 

1330 PLAY Z*+Y*+Z$ 

1340 PLAY"T100L3V1505EV13DV11C","T100L3V1504GV13FV11E" 

1350 LOCATE 3,12:PRINT"HELAAS,UW SPEELTIJD" 

1360 LOCATE 3,14:PRINT" IS OP." 

1370 IF L>LL THEN LL=L:LOCATE 33,10:PRINT LL 
1380 IF PN>HP THEN HP=PN:LOCATE 33,6:PRINT HP 
1390 FOR X=1 TO 1000:NEXT X 
1400 CLS 

1410 LOCATE 2,7:PRINT"Wi1t U het nog een keer proberen ?" 

1420 LOCATE 13,10:PRINT "<VUUR>" 

1430 FOR 1=1 TÓ 1000 

1440 IF STRIG(SS)=—1 THEN 300 

1450 NEXT I:CLS:LOCATE 8,7 

1460 PRINT "Het duurde te lang." 

1470 PRINT:PRINTTAB<10);"Stopt U maar." 

1480 LOCATE 0,20 

1490 KEY ON:WIDTH 37:END 

1500 CLS:GOTO 1490 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel: 

Tot 3 si S 


290 - 235 
300 - 106 
310 - 124 
320 - 118 
330 - 40 
340 - 62 
350 - 172 
360 - 205 
370 - 148 
380 - 54 
390 - 80 
400 - 159 
410- 51 
420 - 84 
430 - 12 
440 - 140 
450 - 84 
460 - 168 
470 - 118 
480 - 88 
490 - 106 
500 - 30 
20056 
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CASSETTE/DISK GEBRUIK 

Steeds opnieuw word ik teleurgesteld 
na het intikken van sommige Listings. 
Ik ben nl. een DISK—gebruiker. 
Kennelijk is dat nogal zeldzaam in 
nSX-land. Er wordt tenminste vaak in 
het geheel geen rekening gehouden met 
deze categorie. 

tdat gebeurt er als je na een avond 
tikwerk (de ervaring leert al snel : 
eerst SAUEN!) het resultaat wilt gaan 
bekijken van een net voltooid program: 
een ’Hang up* , het Opnieuw Opstarten 
van de computer of Cals alles goBd 
werkt en er is een Save option inge¬ 
bouwd het zelfde resutaat). Om dan 
maar te zwijgen over de enkele keer 
dat je vergeet eerst te Saven!! 

Wat is hier aan de hand ? 

Wel een Cassette-gebruiker die, een 
programma met C al is het maar een 
piep klein stukje) MACHINETAAL 
schrijft of hier en daar een klein 
POKE’je gebruikt , houdt er GEEN 
rekening mee dat de hoogste adressen 
bij Disk-gebruikers al bezet zijn door 
Disk-Basic!! Dat maakt in de meeste 
gevallen 43G7 bytes uit en in mijn 
geval Cik werk met een Spectra Uideo 
Drive) zelfs 6453 bytes uit. Hieruit 
volgt dat elk adres boven de 59000 
voor de Disk-gebruiker erg gevaarlijk 
is. 


Nu denken de cassette-gebruikers 
misschien dat die enkele Diskgebruiker 
dan pech heeft, maar zij moeten zich 
toch realiseren dat er steeds meer 
disk gebruikers komen zeker als MSX-2 
goed op denmarkt is, want die heeft 
een ingeboude Diskdrive. 

Ueel cassette gebruikers die een fijn 
spel hebben of een uiterst gemakke- 
ijke Utility, waar ze nu zo fijn mee 
werken, zullen dan merken dat ze die 
allemaal in de vuilnisemmer kunnen 
smijten, want ze zijn voor Disk ge¬ 
bruikers totaal waardeloos ! 

Waar blijft de MSX-SPIRIT bij onze 
mede MSX-ers!!! 

Wij hebben onze machine toch allemaal 
gekocht om de grote onderlinge uit¬ 
wisselbaarheid ! 

Cassette gebruikers wees aardig tegen 
uw Disk broers en zusters ! Wij willen 
ook graag profiteren van deze vaak 
zeer nuttige en fijne programma’s. 

Want het gebruik van een paar Poke’s 
en een stukje machinetaal maakt een 
programma vaak een stuk sneller. 

Misschien is er onder de lezers iemand 
die weet welke adressen nog veilig 
zijn voor de CSUI) Disk. 

Graag publicatie hiervan,zodat alle 
programmeurs dit in hun toekomstige 
programma’s kunnen gebruiken. Ik hoop 
dat van nu af elke MSX-er van ALLE 
programma’s kan profiteren. 


Ook in BOEKEN Cmet listings) komt soms 
hetzelfde euvel voör ! 

Uaak zijn deze boeken flink prijzig en 
ik vind dat er dan tenminste buiten op 
het kaft een vermelding moet staan 
dat het betreffende boek alleen voor 
cassette gebruikers geschikt is. 

Disk gebruikers kunnen ze bij het oud 
papier voor de voetbalclub leggen! 


C.N.F. ESSENBURG 


mee eens. 


voor 

een 

niet 

Zo'n 

hard 

veel 


Ja, daar ben ik het helemaal 
Hoewel, toch weer niet helemaal. 

Zoals je ziet heb ik in dit blad al een 
S«2 9ra !? ma a ® n 9fpast voor diskdrive. Alle 
door de redaktie geschreven programma’s 

hoJrtf n ’ het v Ü l ^ v T )1 2i zoveel mogelijk voor 
beide systemen -diskette / cassette- geschikt 
r ijn. Onze medewerkers en de inzenders roeD 
?P hetzelfde te doen. Het HIMEM- 
j?drss ~bij disk gebruik- is 57976 (&HE278) 

opdrachtf 15 tB verkrij 9 en door de volgende 

PR I NT REEK < Ï<HFC4A) +256 *PEEK (&HFC4B) 

Bij Spectravideo ligt dit iets laqer. maar 
machine op een andere manier'op te 
starten (opstartmetnode voor 1 drive) komt 
ongeveer dezelfde ruimte vrij en kan 
bovenstaand adres ook voor deze machine 
worden. DU zou allKLl “ SI 
van de Spectravideo te vinden 
Z1 j n " ^i k heb dit van een SVI- 
gebruiker doorgekregen; mocht dit niet juist 
zijn, dan hoor ik dit graag. 

ln.J??? k ec hter wel een uitzondering 
specifieke cassette programma’s. B.v 
data-base voor cassette gebruikers zal 
aangepast worden voor diskdrive, 
progamma heeft alle geheugenruimte heel 
nodig en voor diskdrive gebruikers zijn 

PCD^arona’s -met een veel grotërè 
bedenfcen PaCltSlt Randoni Ti les- te 

Ik werk momenteel -voor de uitgeverij- aan 

rif=kn + f£? nneebe f tand ■ , <3500 abonnees per 
diskette), een financiële administratie en 2 

? rCh ini program ! ,a -5 voor tijdschriften en 
l voor geluidsbanden/cassettes). Deze 
programma-s werken allemaal met 2 drives, 
maar als ze klaar zijn zal ik voor de Gids 
1—drive versies van deze proqramma’s maken 
Deze kunnen de cassette- bezftters dan wCi 
weer niet gebruiken, maar zo krjgen beide 
partijen wel programma’s die voor beide 
.optimaal geschikt zijn (voor 
*** - 5 ai . een tijdschriften archief 
geplaatst in nr.1 dus de diskdrivers komen 
rtf als eerste aan de beurt). Mocht er, van 
—i van on2e lezers, eerder al een 

welftV.ite?aa?d mma binenkomen dan Plaatsen 

In t Q?l£4 ep als voorbeeld, wijs ik nog even 
op ST File in dit nummer. Wanneer we met dit 
programma een N.A.W. bestand maken kunnen we 
met veel moeite c.a. 100 adressen kwijt Als 
Hfcbrt nook nog.rekening moeten houden J met de 
J d ” ve ' bezitters dan gaan we hier nog 
zo n 20 adressen van afknabbel en. Hetzelfde 
programma -aangepast voor diskgebruik- kan 
nfn e 4 jk adressen kwijt. Deze zitten 

nf2+-°? k ?° g in ?andom files (wat bij cassette 
en 21 , d 4? direkt opvraagbaar. 

Aparte programma’s lijkt mij dus Be mooistë 
oplossing. Bij alle andere programma’s zal ik 
zoveel mogelijk rekening "hoCiden met de 

hetzeHde’doen? P da * °" ze 


Al tred Debels. 





Software 

& 
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MUSIWRITER - ROMPACK FL. 129,— 

Musiwriter is een programma, dat speciaal 
gemaakt is voor de muziekliefhebber, in 
het bijzonder voor degene, die zelf mu¬ 
ziek componeert en met die composities 
wil experimenteren. 

Het programma wordt geleverd op cartrid- 
ge, werd geproduceerd door AViC Ine. en 
gedistribueerd door Rittor Music Europe 
Ltd. 

Voor het gebruik zijn nodig -buiten de 
MSX-computer-: een video monitor (even¬ 
tueel met externe speakers), een data 
recorder om opgenomen stukken te SAVEn, 
audio componenten en een grafische prin¬ 
ter • 

Om te zien of een leek ook met dit pro¬ 
gramma zou kunnen omgaan, werd de beoor¬ 
deling over gelaten aan een super leek, 
namelijk mij. Voordat ik met het program¬ 
ma aan de slag ging, kon ik geen noot 
muziek lezen en was het me een raadsel, 
hoe ik een wijsje in de machine moest 
krijgen, dat ook nog het aanhoren waard 
was. 

Met behulp van de encyclopedie en een 
oude gitaarcursus leerde ik de grondbe¬ 
ginselen van het notenschrift, waarna de 
vrij uitgebreide handleiding doorgenomen 
werd. Al snel was duidelijk hoe het een 
en ander ingevoerd moest worden en mijn 
keus viel op de spiritual 'Old Black 
Joe' . 



Voor het invoeren van de muziekstukken en 
de verdere bewerkingen ervan, heeft men 
de keuze uit verschillende beeldschermen, 
die met behulp van de funktietoetsen 
gekozen kunnen worden. Op de foto het 
beeldscherm, dat gebruikt wordt voor de 
invoer van de noten. De noten worden 
gekozen door middel van de cursortoetsen, 
waarna met de returntoets de gewenste 
noot ingevoerd wordt. Bovenin het scherm 
wordt het aantal noten bijgehouden, zodat 
men altijd een overzicht heeft van wat er 
ingevoerd is. Teveel of te weinig invoe¬ 
ren is niet mogelijk; in zo'n geval wordt 
de input niet geaccepteerd. 

Op deze manier was het vrij gemakkelijk 
'Old Black Joe' op de balken te krijgen 
en even later klonk het lied in de 
oorspronkelijke vorm door de kamer. 

Nu begon echter het leuke werk, want dit 
is niet het enige, dat met Musiwriter 
gedaan kan worden. Het programma bevat 
eigenlijk een complete synthesizer, waar¬ 
mee je zo'n liedje bijvoorbeeld verschil¬ 
lende ritmes mee kunt geven: wals, disco, 
ballad etc. met of zonder achtergrond- 
drum. Tevens is er keuze uit diverse 
muziekinstrumenten, waarmee je het kunt 
laten uitvoeren: piano, mandoline enz. Af 
en toe herken je gewoon het hele stuk 
niet meer.. 

Voor de muziekliefhebber is dit een pro¬ 
gramma, dat ontzettend veel mogelijkheden 
biedt. Het enige, dat ik persoonlijk 
jammer vind, is dat je de muziekstukken 
alleen binnen het programma kunt gebrui¬ 
ken en dat het bijvoorbeeld niet mogelijk 
is met Musiwriter introotjes voor eigen 
computerprogramma's of spelletjes te ma¬ 
ken. 

JOSÉ HERPS 

Beeld* * * * 

Geluid* * * * 

Spelkwaliteit 
Foutafhandeling* * * * 
Gebruiksgemak* * * * 
Documentatie* * * * 

Prijs* * * 

..... ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 
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LISTING CONTROLE PROGRAMMA 2 

T.TCJ'rTKrO rnniomnn o 


LISTING TESTER 2 

DEZE LISTING TESTER IS VAN TOEPASSING OP 
DE LISTINGS VANAF MSX GIDS NR.3 

DE LISTINGS UIT GIDS 1 EN 2 NIET MET 
DEZE TESTER CONTROLEREN! 

De Listing tester is bedoeld als 
hulpmiddel voor de lezers, die de 

programma listings uit ons blad 

oyernemen. Met dit programma publiceren 
wij een kontrole-telling van de 

programmaregels en, wanneer u een 
programma heeft overgenomen, kunt u dan 
-ook weer met ditzelfde programma- een 
kontrole-telling uitvoeren. Zijn de 
getallen achter de regel hetzelfde, dan 
is de kans erg groot, dat het programma 
goed is overgenomen. Zeker is dit echter 
niet, want wanneer bijvoorbeeld twee 

letters in een regel worden omgewisseld, 
dan is de telling toch goed. 

MSX-BASIC kent twee statements voor 
regels die alleen kommentaar bevatten: 
namelijk het REM-statement en regels die 
beginnen met •. Beide regels hebben over 
net algemeen geen invloed op de werking 
van het programma en daarom wordt de 
tekst van deze regels niet meegeteld. 

anneer de REM regels wel belangrijk 
2i]n (b.v. bij machinetaal routines, die 
tijdens de loop van het programma op 
deze regels worden geplaatst) dan wordt 
dit uitdrukkelijk vermeld. 

De tester heeft hoge regelnummers, zodat 
hij aan het eind van de meeste 
programma s geplaatst kan worden. U 
toetst dit programma in en kontroleert 
het met zichzelf door regelnummer 65170 
te laten vervallen. 

Is het programma goed, dan moet dit met 
de opdracht SAVE "CAS:TESTER" op 

worden gezet, (wel eerst regel 
65170 weer opnemen!!). 

Het programma wordt dan als ASCII-file 
op de band gezet. 

Niet wegschrijven met "CSAVE"!! 

U 9 ebruikt verder dit programma als 
volgt: 

u tikt het programma, dat u wilt hebben 
in en zet dit eerst op cassette. Niet 
eerst RUNen, want bij sommige fouten kan 
een programma blijven 'hangen' en vaak 
moet dan alles opnieuw worden ingevoerd! 
Daarna kan met MERGE "CAS:TESTER" het 
kontrole programma achter het 
ingetoetste programma worden gezet, 
waarna met RUN 65000 het kontroleren kan 
beginnen. Er is een keuze tussen de 
uitvoer naar een printer en naar het 
beeldscherm, in principe zal de printer 
worden gebruikt, maar bij kleine 
programma's, of voor het geval dat er 
nog slechts enkele regels nagekeken 
hoeven te worden, kan het ook via het 
beeldscherm. 

Voor het laden van het testprogramma 
moet de instruktie 'MERGE' worden 


M^o Ulkt en niet LOAD! (Dus MERGE 
CAS:TESTER"). Bij gebruik van LOAD komt 
de Listing tester namelijk in plaats van 
het reeds in het geheugen aanwezige 
programma te staan en dan valt er niets 
meer te testen. 

Let goed op bij DATA- regels. Wanneer 
hier getallen omgewisseld worden, zal de 
ester toch een goede telling geven! Bij 
het omwisselen van letters in BASIC- 
mstrukties wordt wel een fout 
geconstateerd. 

!^^ COntr 2 le . te lling wordt alleen bij 
grote -of ingewikkelde- programma's 
geplaatst. 

65000 ' *********************** 

65010 ' * LISTING TESTER 2 * 

65020 ' * Door Alfred Debels * 

65030 ' * (c)1986 De MSX Gids * 

65040 " * Amsterdam * 

65050 ' *********************** 

65060 " 

65070 CLS:CLEAR:SCREEN 0:WIDTH 40:PRINT 
65080 PRINT "Weergave via beeldscherm of 
printer?" 

65090 PRINT :PRINT "B of P?: " 

65100 X$=INKEY$:IF X$<>"B" AND X$<>"P” TH 
EN 65100 

65110 START=32769! 

65120 RG=START+2: T=0 
65140 VR=PEEK(START)+256*PEEK(START+1) 

65150 NR=PEEK(RG)+256*PEEK(RG+1) 

65160 IF VR=0 THEN 65290 
65170 IF NR>=65000> THEN 65290 
65180 S=0:FOR I=RG+2 TO VR-1 
65190 A=PEEK(I) 

65210 IF A=143 THEN I=VR:G0T0 65240 
65230 S= S+A:NEXT 
65240 S=SMOD256 
65250 T=T+S 

65260 IF X$="B" THEN PRINT USING "Regel: 

IHHHHt - //#//";NR,S:GOTO 65280 
65270 LPRINT USING "Regel: #//### - ###"• N 
R,S 

65280 START=VR: RG=VR+2:G0T0 65140 
65290 IF X$=”P" THEN 65310 
65300 PRINT:PRINT "Totaal: ";T: END 
65310 LPRINT: LPRINT "Totaal: ";T: END 

USTNGTESTER^ 16 Regel: 65180 - 201 

SlfSST- 58 SSi; SIS : 234 

Regel* 65020 " el Regel: 65230 - 164 

Reae : ~ ll Regel: 65240 ~ 173 

R.S1; S : % SI: ™ 

Regel: 65050 - 58 R e ~ ! «5270 - 45 

S;S:,g 

rAi.'SS»:» r:~!: SIS: II? 

SSJSSrl SSi:SS-“ 

Regel: 65110 - 23 lft OP!'! Totaal: 3330 
Regel: 65120 - 200 REGEL65170 IS NIET ftFrecri 

SSl! lj 5 4 ° - {» oe Z e L re^l°mÓe S t N Óus MET EST 

SI; Ëm : JS w ^r TE 0<K ' " A, * KEKEB 



de mini gids 

In deze rubriek kunnen onze lezers advertenties 
plaatsen, mits NIET VAN COMMERCIËLE AARD! Handela¬ 
ren kunnen onze advertentIetarieven aanvragen. 

De redaktle behoudt zich het recht voor adverten¬ 
ties voor deze rubriek te weigeren. Inzendingen 
kunnen gestuurd worden naar Postbus 10252, 1001 EG 
Amsterdam en dienen voorzien te zijn van naam, 
adres en evt. telefoonnummer. Advertenties met 
alleen postbusnummer of antwoordnummer worden niet 
opgenomen. 


CASSETTES 


CASSETTES 

De programma's uit de MSX-Gids zijn ook op 
cassette leverbaar. 

Cassette nr.3 bevat alle programma’a van 
Gids nr. 3 plus een complete ’STUNTVOGEL’ 
waarin de velden 7,8 en 9 zijn opgenomen. 

Cassette nr. 4 bevat alle programma's uit 
dit blad. 


GEZOCHT: 

Printer software; zowel grafische, leuke 
als nuttige programma’s. Printer IBM- 
compatjble of daarop lijkend. Evt. kos¬ 
ten worden vergoed. 

A.J. v.d. Berg, Esdoornlaan 43, 

3881 ER PUTTEN. 

AANGEBODEN: 

REVOX A77 tapedeck 4 sp. 9.5/19 cm.sec. 
Incl. 15 tapes 26cm.(prof. kwaliteit), 

25 tapes 18 cm (div. kwaliteiten), NAB 
adaptor, stof kap en div. toebehoren. 
Alles in een koop Fl. 1200,00 
TECHNICS ST 3500 AM/FM Tuner Fl. 100,00 
JVC JA-S8 versterker. 2x70 Watt, 2x 
phono, 2x AUX, 2x tape met dubbing, lx 
tuner, 5-kanaals equaliser en 2 filters. 
Voor- eindversterker ontkoppelbaar. 

Fl. 200,00. Tel. 020-327464 


HCC IISX gg 
Postbus 51 
2630 AA Nootdorp 

USX gg. West-Brabant 
Pijnboomstraat 10 
4731 AT Oudenbosch 


De cassettes kosten Fl. 15,00 per stuk 

(incl. verzendkosten). 

Voor Belgie is de prijs BFr. 280.- 
Giro: 909515 t.n.v. A.Debels, Amsterdam. 
Voor Belgie: Rek.nr. 235-0430464-87 bij de 
Generale Bankmij. te Hasselt t.n.v. 
J.Herps, Amsterdam. 

Vergeet bij de bestelling niet het nummer 
te vermelden. 


HAAST?... Haal de cassette dan zelf bij: 
MSX S0FTSH0P, Vespuccistraat 48, 1056 SM 

Amsterdam. Bij de Softshop is ALLEEN DE 
LAATSTE cassette verkrijgbaar!!! 


MSX GEBRUIKERSGROEPEN 


YAMAHA CX5 gebruikersgroep 
p/a Coen van Splunder 
Diepenbroek 87 
5991 PT Baar1 o 
Tel. 04707-3348 

TILBURGSE MSX GEBRUIKERSGROEP 

Azuurweg 92 

5044 KD Tilburg. 


"De Leke" 

t.a.v. Fred De Winne 
Lekestraat 33 
9900 Eeklo Belgie 


MUG msx gebruikersgroep 
Christiaan RakQW 
Minervalaan 81 
1077 NT Amsterdam 
Tel. 020-766493 





Abonnement 

Een abonnement is voordeliger 

en je mist geen nummers! 


EEN ABONNEMENT KOST FL. 40,= PER 6 NUMMERS EN IS TE VERKRIJGEN 
DOOR OVERMAKING VAN DIT BEDRAG OP GIRO 5036011 T.N.V. J.HERPS TE 
AMSTERDAM. 


VOOR BELGIE: BFR. 750 OP BANKREKENINGNUMMER 235-0430464-87 BIJ 
DE GENERALE BANKMAATSCHAPPIJ TE HASSELT T.N.V. J.HERPS, 
AMSTERDAM. 

Girobetaalkaarten of Eurocheques (vergeet niet het nummer op de 
achterzijde in te vullen) kunnen gestuurd worden naar: 

Uitgeverij HERPS, Postbus 10252, 1001 EG Amsterdam. 

Tel. inlichtingen over abonnementen en losse nummers: 020-327464 
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Vespuccistraat 48 
(bij het Mercatorplein) 
Amsterdam 

Dagelijks geopend van 9.00 tot 18 00 
Maandags vanaf 13.00 
Koopavond tot 21.00 


GAMES 



ADVENTURES 

Rollerbal 1 

FL 

64,00 

Worm in paradise 

Boulderdash 

FL 

39,00 

Diary A.Mole 

Jet bonter 

FL 

34,50 

Mandragore 

Roadfighter 

FL 

69,00 

Emerald Isle 

Lazy Jones 

FL 

45,00 

Return to Eden 

Sourcery 

FL 

39,00 

Snow ball 

Mouser 

FL 

69,00 

Alien 8 

Kung Fu 2 

FL 

69,00 

Knight lore 

Soccer 

FL 

69,00 

Beyond 

Eggerland 

FL 

79,00 

Death valley gold 


BOEKEN 

FL 49,00 MSX 2 Handboek FL 
FL 49,00 Machinetaal handboek FL 
FL 89,00 Verder uitgediept FL 
FL 35,00 Pascal handboek FL 
FL 49,00 CP/M operating system FL 
FL 49,00 De progranmeertaal C FL 
FL 49,00 Forth FL 
FL 49,00 Computers en printers FL 
FL 25,00 Logo p(_ 
FL 39,00 Red book FL 


56.50 

34.50 
23,90 

52.50 
38,75 
25,00 
31,00 

27.50 

39.50 
45,00 


SERIEUZE PROGRAMMA'S 

Schaakprogramna FL 45,00 

Eddy 2 FL 76,00 

Draws FL 48,00 

Tasword ned. FL 95,00 

Tasword eng. FL 65,00 

Viditel FL 299,00 

C ++ FL 185,00 

Devpac FL 89,00 

Pascal FL 135,00 

Drie in één FL 34,50 


BINNENKORT MSX 2 SOFTWARE 


RUIM 300 PROGRAMMA'S VOORRADIG 


TEVENS ALLE MSX BOEKEN IN VOORRAAD 




MSX 


•••• .. # 

I !!!••!• ••••••• •••** J5JJJ 222222. ••••• •••••• 

I 222.222 222 222 . ::: ••• :•: 222 ** 222 . 

•••mm ••••••• 222 22222 222222* •••••22 ••••222 

•••••• •••#• ••• ••••• 222222 * ••••••• ••••••• 

•••• 222 *** ••••• •••••• 

••• 
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VRAAG SCHRIFTELIJK ONZE CATALOGUS AAN 
MSX SOFT POST 
Vespuccistraat 48 
1056 SM Ansterdam 


VOOR POSTORDERS KUNT U BELLEN 
MAANDAG T/M VRIJDAG van 10.00 tot 13.00 
telefoon: 020-123206 


bij vooruit betaling geen verzendkosten 

rembourskosten worden wel in rekening 
gebracht 






handboeken 

leerboeken 

software 



BASIC 

prijs f 49,50 
ISBN 90 6398 100 7 

De steun en toeverlaat van zowel de pro¬ 
fessionele programmeur als de amateur. 

DISK 

prijs f 29,50 
ISBN 90 6398 407 3 
Basic in verband met de schijveneenheid; 
aanvulling op bovengenoemd deel. 

QUICK DISK 

prijs f 23,50 
ISBN 90 6398 254 2 

Behandeling van de quick disk komman¬ 
do's; aanvulling op Basic handboek. 

ZAKBOEKJE 

prijs f 1 9,50 
ISBN 90 6398 888 5 

Al Ie belangrijke gegevens voor Basic- en 
mach in e taalprogrammeurs. 


DOS 


prijs f 26,50 
ISBN 90 6398 674 2 
Behandeling van het eerste professionele 
MSX operating system: het MSX DOS. 

PRAKTIJK 
PROGRAMMA'S 

prijs f 24,50 
ISBN 90 6398 437 5 

De gegeven programma's zijn van uitgebreid kommentaar voorzien. 


leerboeken 

De serie MSX leerboeken geeft een 
kompIe te kursus MSX-BASIC pro¬ 
grammeren in drie delen. Deze zijn 
gericht op de beginnende program¬ 
meur. De gebruikte voorbeelden zijn 
zo praktisch mogeiijk gekozen, waar¬ 
door ai in een vroeg stadium bruik¬ 
bare programma's kunnen worden 
gemaakt, ieder deel werkt toe naar 
het voorbeeldprogramma dat achter 
in het deel is opgenomen. De op¬ 
drachtenboekjes zijn apart verkrijg¬ 
baar. Zo wei voor gebruik op schooi 
ais voor individueel gebruik zullen 
deze boeken erg nuttig zijn. 


csm 


IBPiSICI 


DEEL 1 


•icssa *KK€RHAhS/P]rr den mcijcr 


ssm 



u*ssfi iSKKoawts/PTt'Gai hcijci? 


MSX Basic leerboek deel 1 

ISBN 90 6398 649 1, prijs f 24,50 

Opdrachten bij deel 1 

ISBN 90 6398 596 7, prijs f 11 ,— 

Programmacassette bij deel 1 

ISBN 90 6398 656 4, prijs f 32,50 

MSX Basic leerboek deel 2 

ISBN 90 6398 769 2, prijs f 24,50 

Opdrachten bij deel 2 

ISBN 90 6398 556 8, prijs f 11 

Programmacassette bij deel 2 

ISBN 90 6398 566 5, prijs f 32,50 

MSX DOS leerboek deel 3 

ISBN 90 6398 519 3, prijs f 24,50 

Opdrachten bij deel 3 

ISBN 90 6398 516 9, prijs f 11 r — 

Programmacassette bij deel 3 

ISBN 90 6398 526 6, prijs f 32,50 


Vraag even om onze uitgebreide gratis catalogus 
van computerboeken en software. Al onze uitgaven zijn 
ook verkrijgbaar in de boekhandel en computershop. 

uitgeverij STARK-TEXEL 

postbus 302 -1794 ZG Oosterend tel. 02223 - 661 



MSX truuks en tips deel 1 


ISBN 90 6398 900 8, f 24,90 
MSX truuks en tips deel 2 
ISBN 90 6398 340 9, f 24,90 

Boordevol met tips, handige en 
uiterst krachtige programma's 
op grafisch , muzikaal en admi¬ 
nistratief gebied. In deel 2 leert 
u ook programma's beveiligen. 



INTROTAPE cassette f 35,75 
MSX wordt op een vriendelijke 
en onderwijzende manier vanuit 
nu! bij de gebruiker geïntrodu¬ 
ceerd. 

DRAWS cassette f 48,- 
Tekenprogramma; al binnen 10 
minuten uw eerste technische of 
kreatieve tekening op uw MSX 
computer. 

SCRIPT cassette f 58,50 
E en volledig menu-ges tuurde ne- 
der/andsta/ige tekstverwerker. 



BASIC HANDBOEK 


A.C.J.Groeneveld 


IN VOORBEREIDING: 

MSX 2 BASIC Handboek 
ISBN 90 6398 221 6 ± f 56,50 
MSX 2 Uitbreidings Handboek 
ISBN 90 6398 222 4 ± f 37,50 
MSX 2 Toepassings Handboek 
ISBN 90 6398 223 2 ± f 29,75 
MSX 2 Zakboekje 
ISBN 90 6398 224 0 + f 27,50 






























































